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by Colin Opie 


How many times have you lost a program and got the ubiquitous "Bad Program" 
message, and how many times have you lost programs because they refused to reload? 

This article looks at the whole question of program loss, and presents a 
Recovery Program "Rescue" which may be used to salvage "Lost Programs". In the 
tests which we have made on Rescue, it has performed magnificently, recovering vast 
Sections of badly garbled programs as if by magic. 

The article and program are based on the ideas submitted by members in response 
to a plea in BEEBUG no 5 by S.P.Brooke who had been losing a lot of programs. We 
acknowledge those members at the end of the article. 


Program Loss 


I think that the best way to approach this problem is from a purely practical 
point of view in the first instance, and I will begin by looking at the use of the 
recovery program in some detail; leaving theoretical explanantions until the end. 


SIMPLE RECOVERY 


First type in and save ordinarily a copy of Rescue. This program may be used to 
recover from many types of bad program - including faulty cassette recordings, and 
bad programs already resident in memory. 

We will assume in the first instance that you have a program on tape which will 
not fully load for one reason or another. First of all you must allocate space at 
the top of memory away from where the Bad Program will reside, for the recovery 
program. To do this, first make sure that you are in mode 7, and then type 
PAGE-&3800 ‘return’ for a 16k machine, (or PAGE-&7800 for 32k). If you are not 
familiar with the hexadecimal notation, you may like to look at BBC Basics in this 
issue. Type NEW and load in the recovery program. 

Now reset PAGE to &E@@ (type PAGE=&E@@... or  PAGE-&1900 for disc machines) , 
type NEW followed by ¥*OPT 2,0. The latter operation tells the filing system to 
ignore errors and to continue to load the program (it cannot however be used when 
loading from disc). 

Now attempt to load in your program and don't worry about any error messages 
that appear. Eventually the last block should be found and the loading operation 
will therefore cease, with the message 'Bad program' more than likely appearing. 
(If the last block cannot be found by the machine then you may have to use one of 
the ideas set out later in this article). 

Now set PAGE back to the value you used in order to load the recovery program 
(ie. &78ØØ or &3800). Type RUN, and press return in answer to the prompt "TOP 
OFFSET?", 

As the recovery program is running it will list out the line numbers it thinks 
it can find together with the location in memory where it found them. When the 
program finishes it resets PAGE to &E00 (or &1900 for discs) in order to get back to 
your 'recovered' program. You may now type LIST or anything else you like in order 
to make good the retrieved parts of your lost program. 

In case you feel that the operation is complicated look again at the operations 
in the order that you need to execute them: 


Ø. MODE 7 | 

1. PAGE-87800  (&3800 for 16k) ;Reserve space 

2. NEW 

3. LOAD "RESCUE" ¿Load recovery program 

4. PAGE=&E@@ (or &1900) ¿Reset PAGE 

5. *OPT 2,0 (only for cassette)  ;Ignore errors 

6. LOAD "BADPROG" ; (Use the real name!) 

7. PAGE-&7800 (or &3809) ¿Point back to the recovered program 
8. RUN ;and run it. 

9. Press return in answer to the prompt "TOP OFFSET?" 
19. LIST ;This should list your recovered 
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If your Bad Program is already in memory because e problem g 


running, or development etc., rather than in loading; then just execute instructions 
Ø to 4 and 8 to 164. 


If the program as recovered is considerably shorter than the original, you may 
try to get more of it back by repeating steps 1 to 4 and 8 to 10 (whether the 
original problem was on cassette or not), but at the prompt "TOP OFFSET?" you should 
give a number that corresponds approximately to the number of bytes (or characters) 
that you think you have lost. This is obviously a trial and error process, and if 


you set the offset too high, you may get additional garbage program lines - though 
these can be edited out. 


THE PROGRAM 
The program is listed at the end of the article. Note that for disc systems, you 
should alter line 220 to set P$-&1900 rather than &EØØ. 

The main work of the RECOVER procedure is carried out in the REPEAT. . UNTIL 
loop. Line 140 is necessary in order to remove control codes from the corrupt lines 
themselves. Such control codes are changed by the program into a 'hash' for easy 
identification in subsequent editing. Line 150 is a catch-all line which traps a 
line exceeding 250 characters in length, by simply splitting the line into two or 
more parts. You could, if you wanted to, change the program so that it always 
generated the same Basic line number for this process. But the disadvantage is that 
you may end up losing valuable program lines by doing this. The recovery program 
does not pick on any line in particular so as to remain (reasonably) universally 
applicable. Lines 110 and 170 merely print out the line numbers found and their 
location in memory. 


- 140 IF line?count<>&@D THEN count=c 
J 10 REM Program recovery 


PK ount+] 
we) WT, 20INPUT"TOP OFFSET ",T$ 158 IF line?count<>&@D AND line?cou 
MT) 30 PROCinit nt«32 AND count>4 THEN line?count=35 
pwi 40 REPEAT 160 IF count>25@ THEN line? (count+1)=&@D 
„aale 90  — PROCrecover 1780 UNTIL line?count-&0D | 
El lia 6Ø UNTIL finished 18Ø PRINT “line 
& "7  7ØPAGE=P% 190 line-line*count: ?lenpos-count 
ies 80 END 200 ENDPROC 
99 DEF PROCrecover 210 DEF PROCinit 
1990 ?line-&0D: lenpos-linet3: count-l 220 AS-TOP-24T$: ?A$-&ÜD: AS=A%+]: ?A 
119 IF ?line-&0D AND line?1=&FF THEN S=S&FF: PS=&EØØ:REM*******CHANGE TO P$-& 
finished-TRUE: ENDPROC 1900 FOR DISCS 
120 PRINT (line?1])*256+(line?2) ; 230 line-P2: finished-FALSE 
130 REPEAT 240 ENDPROC 


ADDITIONAL NOTES AND HINTS 


1. If on trying the recovery process on a cassette that loads badly, you find that 
you have been unable to recover very much, try loading the bad tape again! There 
is always the chance that a second 'reading' will produce a better 'result'. 

2. No Block zero 
The best way to recover a lost block zero is to use the T.BUG program in BEEBUG 
no 7. The alternative solution is to provide some other block zero and then load 
in the rest of the tape as normal. One method is just to save any old rubbish 
with the same name as your corrupt tape. Make sure that it is at least two 
blocks long. You load in the rubbish tape, stop it half way through the second 
block, then replace it with the corrupt tape. A problem with this method is that 
you will have to patch up the links, (using the recovery program) if they do not 
match. The chances are they will not! A better approach is to type in enough of 
the original program as required to get these first few blocks. Then save this, 
and reload it. Stop the recorder half way through block 2, and insert the bad 
tape from the start. The main problem here of course is that you may not have an 
accurate listing of the lost program. 

3. No Final Block 

th 


ld load in as much of the program as possible and then 
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manually look (via indirection operators) at the memory around TOP, and insert a 
new ‘end of program" marker in the appropriate place. - See notes at the end of 
the article on the theoretical basis for this. Alternatively, you should be able 
to use the TOP OFFSET facility desetiped above. 
4. Saving a Bad Program 
If you have a Bad Program and you do not have time to sort it out, you can still 
save it using the following command: 
*SAVE "name" EQ 6000 
The last hex number given can be anything you like as long as you feel that it is 
big enough to reach the end of your software. You can re-load it with: 
* LOAD" " 
5. Using Backups 
To reduce the likelihood of TN inconvenienced by a Bad Program in the future, 
it may well be worth considering the following: 
a) Keep adequate backups on tape as you develop your software. This is a 
slow process with cassettes but you know the alternative. 
b) Always SAVE a copy (or two) at 300 baud for extra security at the end of 
the day. 
c) Always verify your saved programs with *LOAD" " 8000 (see BEEBUG no 6 for 
details). 
d) Keep your working tape and your 'master backup' tape separately. 
e) Leave sensible gaps between programs on the same tape. Better still if 
you can afford it, use two tapes per program. 
f) If you are using discs, make frequent backup copies, perhaps alternating 
between two discs. 


THE THEORY BEHIND RESCUE 


To understand what is happening we really need to jump in at the deep end and 
look at the internal structure of a BASIC program. Each BASIC line consists of an 
<@D> character (ie ØD hex or 13 decimal or 'return') followed by a 16-bit line 
number (most significant bit first) followed by a «line length» byte, and finally 
foliowed by the actual line: 


Eg: 19 REM** 
20 REM 


becomes :- 
«0D»«00»«0A»«08»«20»«FA»«*»«*» 
«0D»«00»«14»«906»«20»5«F4» 


Note that «0A» is hex for 10 - ie line number 10, that «20» is the ASCII code 
(in hex) for a space and «F4» is the internal code (or token) for 'REM'. The line 
length value includes the number of bytes in the whole encoded line, not just the 
length of the line itself. 

The end of the program is signified by having the 'line number' &FFFF after the 
«0D» code. (In practice, setting just the most significant bit of the 'line number' 
to &FF will suffice). 

When for example a LIST command is executed, the operating system runs through 
the memory checking to see if all the ‘line length' codes are correct. If they are 
not then the message 'Bad program’ appears. The task is therefore to fool the 
system into thinking it has a perfectly good program, even though you know that it 
is not as good as it used to be! In essence this is what the recovery program in 
this article achieves. 

We are most grateful to the following for the ideas contained in this article: 
Colin Chalmers, A G Williams, Arnold Stewart, Cedric Marshall, Heath Rees, 
GL Wills, Terry Bromilow, Gavin Craig, Michael Farrell, A Suggett, Paul Mudditt, 
iginally 
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` SYSTEM RE 
by Sheridan Williams 


Here it is at last, our long awaited disc review. The topic of discs has given 
rise to more questions than any other topic recently, and we have long recognised 
its importance to members. However, we have been unable to do a disc review before 
because of the difficulty in getting hold of all the components that make up a 
working disc system, namely: 

Disc Filing System (DFS) chips. 
Machine Operating System version 1.0 or Later, 

(See the editorial for the supply situation on OS 1.2). 
A disc interface. | 
The disc drives themselves. 

A 'Utilities' disc. 

A disc manual. 

Power output socket on Beeb power supply. 
Not all drives require this because they 
have their own built in mains supply. 


Note that the Beeb external supply (switched mode) will only give 1.25A at 12v and 
1.25A at 5v. Some drives require more than this when used in pairs. 


Supply 

There are at present just two official channels for getting a disc system 
(though disc drives are in ready supply). You can buy a model B with disc interface 
from Acorn, or you can get a model A or B upgraded at a dealer. The reason that 
no one offers unofficial disc upgrades is that the only supplier of the essential 
disc operating system (currently only in EPROM) is Acorn themselves. The BBC disc 
system is standard though, and once you have a working system, there is a wide range 
of unofficial drives that may be used with it. There is at present a further 
obstacle to unofficial purchase of even the drives themselves. If you buy a model B 
with disc interface from Acorn (or get an official upgrade), Acorn will not supply 
you with a manual for the operating system that they have sold you (they won't even 
supply a utilities disc) unless you buy one of their disc drives. Clearly it is not 
really on to refuse to provide a manual for the DOS unless you buy extra parts. We 
have discussed this with Acorn, and they are currently considering the possibility 
of selling the DFS manual and 'Utilities' disc as a separate item; though no final 
decision has yet been made. 


The easiest component to get hold of is the disc drive itself, and we have 
assembled 5 different drives for review. 


The disc drives were obtained from the following suppliers: 
Microage Electronics, 135 Hale Lane, Edgware, Middlesex 
HA8 9QP (Tel: 01-959 71195 
Microware, 657a Holloway Road, London. 
N19 5SS (Tel: 01-272 6398/6237) 
Acorn Computers, via Vector Marketing. Tel 0933 228953. 


The Review 
We review 5 drive units. Details of their specifications are given below: 


Drive 1 = BBC Disc drives. Price £265 Single drive, Single-sided, 40 tracks, 100k 
capacity. Drives are made by Olivetti. Size: 155x241x97mm. 

Drive 2 - Microware type ZL141B. Prices £155 Single drive, Single-sided, 40 tracks, 
100k capacity. Drives are made by Control Data. Size: 155x220x100mm. 


Drive 3 = Microage ‘BBC compatible single disc drive’. Prices £235 (5% discount to 
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BEEBUG members off this price). Single-sided, 40 tracks, 100k capacity. 

Drives are made by Teac. Size: 177x289x162mm. 

Drive 4 = Microage 'BBC Slimline Dual disc drive’. Price:£799 (5% discount to 
BEEBUG members off this price). Double-sided, 80 tracks, 800k total 
capacity. Drives are made by Mitsubishi. Size: 153x241x94mm. 

Drive 5 - Microware type ZL292. Price:£661 Two drives, Double-sided, 80 tracks, 

800k total capacity. Drives are made by Control Data. These drives have 

their own built-in power supply. Size: 153x241x94mm. 


ALL the drives came with a 'Utilities' disc, and those from Acorn and Microage 

also came with a disc filing system manual. 

One of the nice features of drive 5 was that Microware supplied a switch to 
switch between 40 and 80 track operation on the Left hand drive. This increased the 
cost to £690, but this seemed worthwhile from our personal point of view, since it 
is vital for us at BEEBUG to be able to read as many different types of disc as 
possible. 


Another interesting fact that came to light is that both of the Large capacity 
disc drives reviewed (systems 4 and 5) were capable of holding significantly more 
than the BBC micro could handle, for example system 4 could hold 1 Megabyte of data 
on each disc, and system 5 would hold 700k per disc. The BBC micro cannot handle 
this amount, so the disc drives are being under used. We will report on this in 
more detail in a future issue. 


Comments on the Drives 


ALL the drives had fairly short power and data cables. They were each 
approximately 80cm Long. This means that the drives have to be reasonably close to 
the computer. 

Drives 1-4 all used the power-out supply from the Beeb, drive 5 has its own 
built-in power supply. 


Drive 1 This drive is supplied by Acorn for the BBC micro and is in a buff coloured 
case. When the flap is released the disc is automatically ejected. The 
discs are inserted horizontally. 

Drive 2 The colour of the case is slightly lighter than the BBC drives. The disc is 
not ejected when the flap is released. The discs are inserted vertically. 

Drive 3 This is enclosed in a Light grey case, and the disc is again not ejected 
when the flap is released. The disc is inserted horizontally. There is a 
switch that locks the flap closed to prevent accidental undoing of the 
flap - a good idea. 

Drive 4 These are also enclosed in a grey case, the remarkable fact being that the 
case is identical in size to Drive 4 above, but it holds two disc drives. 
The discs are inserted horizontally, and are ejected on releasing the flap. 

Drive 5 These are contained in a cream coloured case. They are significantly larger 
than the Drive 4 but still not obtrusively so. The discs are inserted 
vertically, and are not ejected on releasing the flap. A switch can be 


——— 


fitted to enable the Left hand drive to work in either 40 or 80 track mode. 


During tests over a period of weeks, two of the five drive systems produced drive 

error faults: 

Drive 1 (BBC) had a jammed head cam, which prevented any further use of the drive 
until the cam was released manually. This could be made to happen by trying 
to access a track greater than 40. (Eg by using 80 track discs by 
mistake). 

Drive 2 (Microware) produced erratic &ÜE errors, we were unable to ascertain the 
cause. 


BENCHMARKS 


I used a series of 'benchmark' tests aimed at showing the efficiency of a series 
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of disc operations. The tests included:- 

1. Open and Close a file 10 times. | 

2. Open a file, then write 100 records, each of 255 characters, then close the 
file. | 

3. Open a file, then write the 100 records, but this time in reverse order (ie. 
from record 100 to record 1, then close the file. 

4, Open a file, then read the 100 records, created in test 2 or 3, then close the 
file. 


S.Identical to test 4 except the records are read in reverse order. 


BENCHMARK TEST RESULT TIMES 
Test 1 Test 2 Test 3 Test 4 Test 5 


2.8 | 62 192 56 99 
(all times in seconds) 


These benchmarks conform to the set used previously by "Personal Computer World" 
magazine when evaluating disc systems. Test 3 is interesting, because if the file 
doesn't already exist, then it will take an extra 40 seconds for the DFS to 
initialise it. £o 

These times are generally rather slow, though there is a system. of Links 
(explained in the Disc System User Guide) which may be set for faster drives. 
Changing these Links would be expected to give better timings, since the system as 
supplied has no Links set, and corresponds to the slowest setting. This is 
appropriate for the Acorn-supplied Olivetti drives. 


Links (Found on the keyboard pcb, just below the right hand shift key). 
Links are numbered 1-8 from Left to right. Links are made north-south. 
From Acorn fact sheet: 

Step Settle Head 


Drive time time Load Link-3 Link-4 
Tandon (fast) 4 16 0 1 1 
Tandon/Shugart 6 16 0 1 0 
MPI 6 50 32 0 1 
Olivetti 24 20 64 0 0 


ALL times are in milliseconds, and 
1=Link made, O=no Link. 
Note the Link settings are only checked on power-up. 


Choice of Disc Media 


It is important to buy the correct discs for the disc drives. In all cases 

these are soft-sectored discs. They should be double-density, and double-sided if 
you are using double-sided drives. You should also buy discs that have been 
certified for S80-track use if you are using an 80-track drive such as systems 3 
and 6 in our review. 
LWARNING: many people try to economise when purchasing discs, for example they use 
single sided discs because they find they work in double sided drives. This is 
fraught with danger, because all discs are made on the same production line, and if 
they had passed the double sided tests they would have been sold as such. This 
means that you use them at your peril. Remember that the contents of the disc can 
be worth perhaps hundreds of times the actual cost of the disc itself. Some people 
even cut the disc to make it symmetrical so that it can be inserted the other way 
upe This is also short sighted because the disc revolves the other way in its 
jacket having just lapped itself in to the cleaning material inside its case, 
contra-rotation will wear the disc faster. 


D.F.S. Commands 


As I mentioned earlier, Acorn's policy is not to supply the disc operating 
instructions unless you buy their own disc drives. Some suppliers are supplying 
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their ow . However ere is an easy. | way to find out quite a lot about each 
command: you just type: *HELP DFS (DFS stands for Disc Filing System). 

The message that follows uses descriptions such as: 
COPY <src drv> <dest drv> <afsp> 


where 

«src drv> = source drive 

<dest drv> = destination drive 

<fsp> = filename 

<afsp> = filename (can include wildcards) 
<drv> = drive number 

<old fsp> = old filename 

<new fsp> = new filename 

<title> = any 7 alphanumeric characters 


If the variables are enclosed in < > then they 
are compulsory, however if they are enclosed in 
( ) then they are optional. 

Disc drives are numbered 0, 1, 2, 3 where drive 0/2 and 1/3 are on reverse sides of 
one another. 

The commands must be prefixed with an *, for example: *COPY O 1 TEST here the file 
TEST will be copied from drive O to drive 1. 


Disc System User Guide 


This is the title of the manual you are supplied when you buy the BBC' s official 
disc drives. It is very well written indeed. The first few chapters are devoted to 
explaining what a disc system is. Then each of the commands is explained in 
detail. Finally there are chapters on Random Access Files, Using the filing system 
in Assembler, Technical Information, and an Index. Beware though of the errors in 
the error codes! 


Conclusion 


It is not possible to make a choice or recommendation from amongst these 
systems, because we have had them for such a short time. We cannot, at present, say 
which will prove the most reliable in the long term; and the two faults that 
occurred should not be taken as typical. We will be reporting on our long term 
experiences with drives 1 and 5 in a future issue. 

It is interesting to quote the figures given in the ‘Control Data' information 
sheet on Drives 2 and 5. The mean time between failures is 8,000 hours, the service 
Life is 5 years, no preventive maintenance is required; data reliability for 
recoverable errors is not more than 1 bit per 1,000,000,000 bits read. 


Our thanks are especially due to Tony Latham for his help. 


k2 


MACHINE CODE AT &E00 

If a machine code program is required to reside at &E00, preface it with the two 
bytes 80D and &FF, and make &E02 the execution address. Otherwise BREAKing will 
destroy the first two bytes. 


Mark Tilley 


MERGING VDU CALLS 
Peter Vincent reminds us that VDU commands can be merged, for example: 
VDU 19,0,3,0,0,0 
VDU 19,1,4,0,0,0 
can be written as: VDU 19, 0,3,0,0,0,19,1,4,0,0,0 ==] 
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Inkey Timer ; | 

A good way to achieve a time delay in a Basic program without resetting the TIME variable, is to 
use the INKEYO function. Thus: 100 X=INKEY (200) 
will give a two second time delay. One feature of this delay is that it can be cut short by pressing 
any key. 

Multi-Program Storage 

It is possible to store any number of programs in the BBC machine simultaneously. This is 
accomplished by selecting a new value of PAGE for each program. For example if you type in or load a 
program ordinarily on a cassette-based machine it will sit at &E00 in memory (since &EO0 is the 
default value of PAGE). | 

To enter another program, just type PAGE=&2000 (say), then NEW, and type in or Load, and run 
your second program. To get back to the first just type PAGE-&EOO. 

In deciding where to Locate such programs, refer to the memory maps in the User Guide, and 
remember that they should be well above the space taken up by programs lower in memory, and you 
should allow additional space for variable storage of the Lower program. 

BREAK, OLD and NEW 

Mark Tilley supplies notes on these three as follows:- 

1. On pressing Break: 
PAGE is set to &E00 (81900 with discs). NEW is performed. 

2. NEW causes the following: 
&0D is stored at the Location given by PAGE, &FF is stored at the next location. 
The rest of any program in memory is left intact. 
The two bytes &0D, &FF are used by Basic to signify the end of a program. 

3. OLD has the following effect: 
Zero is stored at PAGE+1. This overwrites the &FF generated by NEW, and so recovers the existing 
program. The zero becomes the most significant bit of the first Line number. 


NOTE that if the first Line number was greater than 255, it would be replaced by an entirely 
different value. 


By Jeremy Ruston 


' destined to become the bible of all BBC microcomputer 
users. . .' (Personal Computing Today). If you've mastered the 
manual, then this book is for you. Just £7.95 


LET YOUR BBC MICRO TEACH YOU TO 


PROGRAM 
By Tim Hartnell 
'. , takes you further into the cloudy areas ofthe BBC machine 
than anything else I’ve yet seen...’ (Computer and Video 
Games). If you're just starting out in the world of programm- 
ing, then this book is the one for you. Forty complete 
programs, including Othello/Reversi, Piano and a host of 
dramatic graphic demos. Just £6.45 
Yes, it's true. Instant machine code from a good 
subset of BBC BASIC. Type your BASIC program | Interface, Dept. BB 
into your model B BBC Micro, trigger the 44-46 Earls Court Road, London W8 6EJ 
compiler, and your program IS changed almost Please send me: 
instantaneously into superfast machine code. | ) INSTANT BBC MACHINE CODE-tape and book-£34.95 
For £34.95 you get: Cassette version of the THE BBC MICRO REVEALED--Ruston-£7.95 
complete compiler (along with a version of the C]! S 3 
compiler for use with discs, ready for when you ( ) LET YOUR BBC MICRO TEACH YOU TO PROGRAM- 
upgrade, the disc version being dubbed on the Hartnell-£6.45 
cassette after the cassette version); complete . ! enclose £ 
compiler listing; extensive documentation and 
instructions. The compiler was written by Jeremy 
Ruston. 
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Brogan by Graham Taylor | 
Text by Adrian Calcraft 


This is a program which will be of particular interest to owners of 16k 
machines, or anyone developing programs and running out of memory space; or indeed 
anyone who uses large amounts of documentation in REM statements during program 
development, but who would like a bit more memory when the final version of the 
program is actually running. The object of Pack is to reduce the amount of space 
your program occupies. It achieves this by scanning each line of a program in turn, 
removing unnecessary spaces, blank lines and REM's, and adjusting the values of the 
line length markers accordingly. 


The program in its current state is designed for cassette use. If you have a 
disc interface fitted, please see the 'DISC NOTE' below. 


Setting up Pack for the First Time 

The procedure for typing in and running Pack for the first time is a little 
unusual, and care must be taken to follow the instructions carefully. In particular 
you must not add anything (except spaces if you wish) to the program that you type 
in in its original form. Otherwise it will not fit in the extremely small space 
provided for it. Once the final copy of Pack has been saved, it is extremely easy to 
use on all subsequent occasions. Note that Pack may not be used in conjunction with 


the cassette bugs fix published in BEEBUG No 4, so verify all SAVEs with 
*LOAD"" 8009. 


The program should be set up for the first time as follows:- 

1. Type in the program exactly as listed. 

2. Do not RUN this program, but save a copy of it as a backup, just in case you hit 
a problem in the next few steps. 

3. Program the function keys fØ and f] by typing the following: 

* KEY Ø PAGE = &COQ|M RUN|M «return» 

* KEY 1 PAGE = &E@@|M «return» 
Note that the vertical slash character "|" is immediately to the left of the left 
cursor key. 

4. Take care not to press either of the function keys yet at this stage. 

5, Run Pack. You will get two prompts: R? and I? Press "Y" to both. 

6. Pack is now packing itself, and relocating itself down below &EØØ. This is smart. 
When it has done this it will clear the screen. If you get "No Such Line" error 
messages, you have probably mistyped Pack (though do not worry if you added some 
extra spaces, it will automatically remove these). If you get an error at this 
stage you should clear the whole machine and use the backup tape to correct Pack, 
and go back to Step 3. 

7. Type PAGE = &C@@ Return. 

8. Alter line 10 to R$=&EØØ 

9. Make your final functional copy of Pack by executing  *SAVE"PACK2" B@@ EØØ This 
stores the compacted Pack plus the user key buffer. 


Using Pack 


Compared to the above performance, using Pack is relatively easy. 
1. Press Break. (For discs type *TAPE<return> PAGE=&E@@<return>) 


Type *LOAD "" Return, and load the compacted version of Pack (saved in 9 above). 
2. Load the program to be packed. 


3. Press function key fø. This automatically resets PAGE and Runs Pack. 

4. You will then be prompted with R? If you answer "Y", all REM statements will be 
removed. If you have GO TO lines in your program which point to a REM line, you 
will get a No Such Line error when you run the compacted program later. But this 
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is easily fixed by re-inserting the lost lines. 

5. You will then be prompted with I? If you anser "Y", all IF statements will be com 
pacted - so make sure you have put in the "THENs" rather than just leaving 
spaces. For example if you have the following: 
1@IFA=BC=D 
Pack will remove the spaces, and give the equivalent logic of: 

1@ IF A= BC == D 

which has a totally different meaning. To avoid this you should insert a THEN 
thus: 

10 IFA- B THEN C- D 

6. Pack will then compact according to your instructions, removing unnecessary 
spaces and line numbers where appropriate. Even if you answer "N" to both 
prompts, it will still compact the rest of the program. 

7. When the task is completed the screen will be cleared, and you should press 
function key £1. You may now LIST, RUN or SAVE your compacted program in the 
normal way. 

8. If you need to edit the compacted program, you should do this with extreme care, 
since you will need to reinsert certain spaces when using the copy editor. The 
reason for this is that Basic words such as AND, THEN etc preceded directly by 
variable names are NOT recognised by the Beeb. Thus IF ATHEN B is read as the 
variable ATHEN rather IF A THEN B. Providing you do not use the copy editor, no 
problems of this kind arise with compacted programs because the Basic words are 
already stored in their so-called 'tokenised' form. 


How Pack Works 
Pack looks at the tokenised version of a program as it is stored in memory, 
removes spaces, adjusts the line length byte and rewrites the line starting from 
where the original program was stored. It is easier to understand this if we 
consider a mini ] line program. 10 PRINT A*1@ If this was typed in as a statement, 
the computer would store the following decimal data to represent it..... 
13. Ø 10. 11 32 FI 32 61 32 49 48 13 255 


BYTE 1....13 Indicates the beginning of BYTE 8....65 ASCII code for A. 


a new line. BYTE 9....42 ASCII code for a +. 
BYTE 2.... Ø High byte of line number BYTE 10...49 ASCII code for character "]" 
BYTE 3....10 Low byte of line number BYTE 11...48 ASCII code for character "Ø" 
BYTE 4....1] Line length. Total length END OF IST LINE 

of this line..11 Bytes BYTE 12...13 Indicates the end of the 
BYTE 5....32 ASCII code for a space. line. 
BYTE 6...24]1 Token for PRINT. BYTE 13..255 Status byte..255 shows 
BYTE 7....32 ASCII code for a space. end of program. 


As Pack operates on these tokens it is possible to strip out spaces which the 
computer would normally require simply for syntax. To see these tokens as stored in 
the computer is very simple using the "Indirection Operators" as described in the 
User Guide pages 409-413 eg. To see bytes in memory at &EØØ..type  A-&EQfKreturn» 
(A-&1900 for disc systems) then type PRINT A?0 or PRINT A?] ...etc. 
Alternatively the Memory Display Utility in BEEBUG no 6 will give a fuller view of 
Basic programs. See also "Points Arising" in this issue. 


Use of Variables 


A$...Flag for REM Packing Z$...Current byte 

B$...Flag for IF packing L$...Address of input program 
L$...Line start of input program R$...AÀddress of output program 
M$...Line length of input program C$...Rem flag 

P$...Line pointer of input program D$...Data flag 

R$...Line start of output program O$...Inquotes flag 

$$...Line length of output program I$...If flag 

Y$...Line pointer of output 


rogram Pack is designed for Basic 
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110 IF Z$-&22 THEN Q£-NOT Q% 


1@ PRINT"R?" :A£-GET :PRINT"I?" :B 
$-GET:L$-&E00:R$-&COQ :92-0:M$-0 128 IF B%=&59 THEN 149 

20 R%=R%+5S3% 130 IF Z$-&E7 THEN I$-TRUE 

30 L%=L%+M% 140 IF NOT I$ GOTO 169 

40 ?R9S-&D:R$?1-L2?1:1F L2?1-&FF TH 150 IF Z$-&8C OR Z%=&E5 OR (29-58 A 
EN CLS:END ND NOT 0%) THEN I3=FALSE 


160 IF Q% OR D$ OR I$ THEN PROCC:GO 
TO 188 

178 IF L$?P$-&20 OR C$ OR (P$-M$& AN 
D P$?L$-&3A) THEN 5$-S5$-1 ELSE PROCC 


SØ R$?2-L$?2 :M$-L2$?3:52$-M$: IF A% 
=&59 AND L$?4-&F4 THEN30 

69 CS-FALSE:D$-FALSE:Q$-FALSE:Ig-F 
ALSE: Y3=4 


7Ø FOR P$-4 TO M% 180 NEXT 
80 Z9-L2$?P$:1F Z$«4»&F4 THEN 106 198 IF S8 5 GOTO 30 ELSE R323-98: GO 
9 C%=TRUE: IF AZ«»5&59 THEN D% =TRU TO20 

E:C3=FALSE 200 DEFPROCC:R&?Y3=L3?P% :Y$-Y$4]:E 
160 IF Z%=&DC THEN D%=TRUE NDPROC 


DISC NOTE 

As it is currently developed Pack is unsuitable for use with discs. We expect to 
publish a disc version in a coming issue, and for now disc owners could type  *TAPE 
then PAGE=&E@@<return> followed by NEW before using the program from cassette. You 
must also remember not to press 'Break'. If you are thinking of developing your own 


disc version of Pack, you will need to store it at the top end of memory, because 
the space below &E00 currently used to store Pack is corrupted by disc use. 


OSBYTE &87 | 
Mr K. Turner has pointed out that the OSBYTE call with A=&87 works on his 9.1 OS. It 
says in the User Guide on page 432 that it is only implemented in version ve ide 


M Ye TR R sapie E epum 
SPECIAL PRICES FOR BEEBUG MEMBERS 


BBC MICRO COMPONENTS 


4516/4816 100ns 

6522 

74LS244 

7418245 

81LS97 

DP8304 

DS3691N 

DS88LS120N 

20 way Right Angle IDC Header 
26 way Right Angle IDC Header 
34 way Right Angle IDC Header 
15 way Right Angle D. SKT 


BBC Microcomputer Upgrades 


*Memory Upgrade (BBC1) 

* Printer & User 1/0 kit (BBC2) 

*F Disc interfce inc DOS (BBC3) 
* Analogue input kit (BBC4) 
"Serial 1/0 & RGB kit (BBC5) 
*Expansion bus & tube kit (BBC6) 


*Printer cable inc Amphenol plug 

(not assembled) (BBC21) 13.00 
*Userportconnector& cable(BBC22) 2.00 
* Analogue input plug & cover(BBC44) 2.25 
"5 pin DIN plug for serialint(BBC111) 0.60 
*6 pin DIN plug for RGB int(BBC109) 0.60 
*7 pin DIN plug for cassette(BBC141) 0.60 
* Single disc drive(100K)(BBC31) ` 230.43 
*Dual disc drives (BBC32) POA 
* Dual disc drives (BBC32) 345.00* 
Teletext Receiver (200K) (BBC71) 144.34** 

Prestel receiver (BBC72) 90.00** 
* Games Paddles (per pair) (BBC45) 11.30 
*Prices on these items are likely to change please con- 
tact sales office before ordering. 
As some items are on extended delivery from Acom 
please check availability before ordering items 
marked * 


ACORN FOR THE BBC MICROCOMPUTER 


Graphs & charts on the BBC Micro(AC122) 7.50 
: ia aig & Shane Paseos eie dd 


2.13 
2.99 


Pn 


Algebraic manipulation pk (AC124) 
Forth on BBC Micro (AC125) 


| Forth pack (AC126) 


Lisp on BBC Micro (AC127) 

Lisp pack (AC128) 
Games-Philosophers quest (AC129) 
Games-Defender (AC130) 
Games-Monster (AC131) 
Games-Snapper (AC132) 


EPROM PROGRAMMER FOR BBC 
MICROCOMPUTER 


*« Programs 2516, 2716, 25322732 Industry 
Standard EPROMS 

* No external power supply required 

** Plugs straight into expansion socket 

* Easy to use 

* Includes all Software required 


EPROM Programmer (Kit) 49.95 
EPROM PROGRAMMER (Assembled) 57.95 


24 Hour Telephone order service for credit card holders. All prices exclude VAT and carriage(0.45 on 
all orders). Official orders from educational and governmentestablishments, and public companies 
accepted. Credit accounts available to others (subject to status). All orders despatched on day of 
receipt. Out of stock items will follow on automatically at our discretion or a refund will be given if 
requested. NO SURCHARGE FOR CREDIT CARD ORDERS. | 


December 1982 


Volume-1 Issue-8 


BBC BASICS PAR 


by David Graham 


This month I shall be using the ideas of memory maps developed last time to show 
how to increase the space available for programs in a model A or B by 759 bytes, and 
secondly to show how to load the user keys, and user defined characters without 
disturbing programs already resident in the machine. This will entail the use of 
*LOAD and *SAVE. Lastly a brief explanation of hexadecimal system will be given. 


Both the above techniques are best understood by looking at the memory map on 
page 501 of the New User Guide. This gives a more precise allocation of the first 
3584 bytes of memory in the Beeb than the one which we gave last month. Our 
Simplified map on page 14 of BEEBUG no. 7 allocated the whole space to "Operating 
System Use" - though in fact the area is used for a multitude of purposes. The three 
most interesting subdivisions within this are the three at the top - namely: 


&EØØ 3584 
Space for user supplied routines 

&DBO 3328 
User defined character definitions 

&CØØ 3Ø72 
User defined function key definitions 

&BØØ 2816 


The column of addresses to the right are ordinary decimal numbers, and by 
subtracting them, you can see that each of the three memory areas is 256 bytes wide. 
This number of bytes - 256 - is called a page (nothing to do with "paged ROMs") - so 
each of the three memory areas is of one page capacity. 


When you set up the user defined keys (see BEEBUG no. 4 for full details), 
information representing your key sequence is placed in the bottom of these three 
pages; and when you define new characters (see BEEBUG no. 2 page 17 for further 
details) the data for this is stored in the centre page. 


There are two reasons why knowing about this can be of immediate practical use:- 
Increasing Available. Memory 


On a cassette based model A or B, the memory available for Basic programs begins at 
location 3584, immediately above the highest of the three pages described above. In 
a Model A there is considerable pressure on memory, especially if you wish to use 
graphics modes 4 or 5, because these take 19k of memory. Since Basic only starts at 
3584 the amount of memory actually available for Basic is 25690 bytes. 
16384 - 3584 - 10240 = 2569 
(since 16k = 16 x 1024 = 16384, and 19k. = 10 x 1024 = 19240) 

2560 bytes is an extremely small amount of usable memory. 

If you are not using the three pages of memory mentioned above, then you can, by 
a simple process, re-allocate these for Basic use. You do this by changing the value 
of the so-called "pseudo variable" called PAGE (see BEEBUG no. 2 page 15 or the New 
User Guide page 317 for further details). If you type PRINT PAGE "return" you will 
normally get the result 3584 (6400 on a model B with disc interface). This is the 
normal default value of PAGE, and PAGE defines where the machine starts to store its 
Basic programs. 


To increase the available memory by three pages, simply type PAGE-2816. Now any 
Basic programs typed in from the keyboard, or loaded in from tape will be stored 
lower down, so saving much space. You cannot of course use the user . keys or the user 
defined characters. Moreover you should not attempt i to load the "Bugs Fix", because 
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that normally resides in the highest of the three pages. Of course, if you want to 
use the user keys, but not the user defined characters, you could set PAGE to 3972 
etc. Note that pressing Break automatically resets PAGE, so you will get a "bad 
program" message until you reset it to 3072 (or whatever value you have used). 


You may come across two other reasons for changing PAGE, though we only have the 
space to mention these briefly at present. It is common practice to set PAGE to a 
higher value than 3584 in order to reserve space for machine code subroutines that 
will not fit in the single reserved page at 3328. Secondly, it is possible by 
altering PAGE to allow the machine to store any number of Basic programs 
simultaneously. Each can be run by resetting PAGE to the appropriate value before 
executing RUN. 


Transparent Loader 


Knowing where the user defined key definitions and the user defined character 
definitions are stored in the machine allows us to load them from tape without 
disturbing a resident Basic program. This is the principle behind the Transparent 
Loader article in BEEBUG no. 7. 


The idea is to use the commands *SAVE and *LOAD (see New User Guide pp 392-3 for 
further details). *SAVE allows you to store the contents of a block of memory, and 
*LOAD allows you to load it back in, either where it came from, or elsewhere. One of 
the possible formats of *SAVE is as follows: 

*SAVE"KEYS+CHRS" B0 DBO 
This will save as a file called "KEYS+CHRS" the contents of memory locations 2816 to 
3328 - that is to say, the two pages storing the function keys and user defined 
characters. You will notice that the expressions BØØ and DØØ reflect the &BØØ and 
&DØØ in the memory map on page 501 of the User Guide. These are so-called 
hexadecimal equivalents of the numbers 2816 and 3328. For more on this, see the 
hexadecimal notes at the end of this article. 


The way to use *SAVE in this context is first to set the user keys and 
characters that you require (using Basic), then perform a *SAVE as above. Then they 
may be transparently loaded any time you wish using *LOAD without disturbing Basic 
programs already resident in the machine. It is worth working through a concrete 
example just to see how this operates in practice. 


First program some of the user keys to suit your purposes (see User Guide 
page 14] or BEEBUG no. 4 page 5 for details) and define some user characters using 
the VDU 23 command (see BEEBUG no. 2 pp 9 & 17). Alternatively running the following 
program will define 3 of the keys and character 224. 

10 REM sets KEYS 0,1] and 7 and CHARACTER 224 

20 *KEY Ø RUNIM 

30 *KEY ] L.|M 

40 *KEY 7 MO.7|M 

50 VDU 23, 224, &6C,&FE,&FE,&FE,&7C,&38,&10,0 : REM HEART 
60 END 


If you RUN this, function key fØ will RUN a program, Key £] will LIST, and Key f7 
will change to Mode 7. Character 224 is defined as a heart, so that subsequent 
commands of VDU 224 or PRINT CHRS 224 will print the shape (providing you are not in 
mode 71). You can. save the key and character settings (without the Basic program) by 
typing: 
*SAVE"KEYTEST" BOS DØØ 

Now whatever Basic program you have in your machine, you can just type 
*LOAD"KEYTEST" to reset the keys and character(s) previously set - all without 
disturbing the resident Basic. See BEEBUG no. 7 page 23 for a more elaborate 


transparent loader. You cannot of course use the transparent loader if you have set 
PAGE down at 2816 to save memory. i 
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S HINTS HINTS HINTS HINT: 


ABBREVIATED NEXT 


Mr A.R.Jones has discovered that when several NEXTs are required, then commas 
can be substituted. Eg. 


10 FOR A=1 TO 2:FOR B=1 TO 2:FOR C=1 TO 2:PRINT ;A;B; C: NEXT, , | =] 
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R COLOUR MONITOF 


PLUS RGB MONITOR 
PLUS PAL VIDEO AND AUDIO 


"EXCELLENT 


SÅ BBC MICRO LEAD INCLUDED 
T EORTATET CONVERSI UNDE 


25. SUNBURY CROSS CENTRE, 
— SUNBURY- ON-THAMES. MIDDLESEX. 


NER/RABBIT/P( 
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AWING (J (ie k/ 32k) by Bobby Hesselbro 


In graphical programs there are ans extensive requirements for filled-in 
circles of different sizes. Some program authors find that the delay while drawing 
is so substantial that it is necessary to blank the screen while the drawing takes 
place. Filling with triangles, using angles increasing to 360 degrees is very slow 
if good definition is required. Utilizing a ‘mirror’ function (Cand drawing two 
semi-circles simultaneously) such as in Example 1 the speed is greatly improved, 
ranging from 0.9 sec to 2.8 sec depending on size. The example employs steps of 9 
degrees, a reasonable minimum for good appearance. The parameters for PROCcircle in 
Example 1 are: 

X,Y = Co-ordinates of circle centre. 

R - Radius 

F$ = A string to specify filled or unfilled drawing. 
Use "F" for filled and "U" for unfilled. 


The procedure begins at line 1000, and is called by a short test routine on Lines 5 
to 70. 


5 REM Ex] - Mirror method 1090 MOVE 0,0:MOVE XX,-YY:PLOTK,X,-Y 
10 MODE 1:REM MODE 5 for 16k 11900 MOVE 0,0:MOVE -XX,YY:PLOTK,-X,Y 
20 FOR radius$=5@@ TO 25 STEP -25 1110 MOVE 0,0:MOVE -XX,-YY:PLOTK,-X,-Y 
30 TIME=¢ 1120 MOVE 9,0:MOVE YY,XX:PLOTK,Y,X 
40 GCOL@, radius$/25+] 113@ MOVE @,@:MOVE YY,-XX:PLOTK,Y,-X 
:PROCcircle (580,500,radius%,"F") 1148 MOVE @,@:MOVE -YY,XX:PLOTK,-Y,X 
SØ PRINTTAB(35, 30-radius$/25) 1150 MOVE 0,0:MOVE —-YY,-XX:PLOTK,-Y,-X 
;TIME/1ØØ 116Ø NEXT 
6Ø NEXT 117Ø ENDPROC 
7Ø END 118Ø DEFFNX (ANGLE) 
1000 DEFPROCcircle(X,Y,R,F$) 1198 =R*COS RAD ANGLE 
1010 VDU29,X;Y; 1200 DEFFNY (ANGLE) 
1020 PROCinit 1218 =R*SIN RAD ANGLE 
1030 FOR ANGLE-S TO45 STEPS 1220 DEFPROCinit 
1040 XX-FNX(ANGLE-S) 1230 IF FS="F"THEN K=85 ELSE K=5 
190590 YY=FNY (ANGLE-S) 1240 NS%=5 
1060 X=FNX (ANGLE) 1258 S-45/NS$ 
1970 Y=FNY (ANGLE) 1260 ENDPROC 


1988 MOVE @,@:MOVE XX,YY:PLOTK,X,Y 


A still faster procedure which does not seem to be in use yet involves first 
drawing the inscribed square and then filling in the rest with lines, using only 
Pythagoras. This procedure is illustrated in Example 2; the time required is nearly 
proportional to the diameter of the circle (1 sec for 500 diameter); the time 
Saving is particularly great on smaller circles. The appearance is nearly 
perfect, except that the shape approaches a square for sizes below 20. When using 
logical operators in drawing, it is important that no point is plotted twice; Lines 
70 and 80 in Example 2 take care of this in modes 1 and 4. In other modes it will 
be necessary to employ separate loops for horizontal and vertical Lines to achieve 
this. Acorn published (L Thomas, Acorn User, July/Aug 82, p.7) a beautifully simple 
circle-drawing procedure which can be speeded up by 30% by drawing two semi-circles 
simultaneously. Even so, this faster version is nearly three times slower than the 
Square method. 

The parameters for PROCcircle in Example 2 are: 
XC%,YC% = Co-ordinates of circle centre. 


R% - Radius _ 
colour’ - Logical colour 
op% - Plotting mode for GCOL (0-4). 


Use O for normal plotting 
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The procedure begins at Line 3000, and is called by a similar test routine on 
Lines 5 to 70. 


5 REM Ex2 - Square method | 3040 y$-R$/SQR(2):x$zy$ 
lø MODE 1:REM MODE 5 for 16k 3050 MOVE x%,y%:MOVE x%,-y%:PLOT 85,-x%,y% 
20 FOR radius$-500 TO 25 STEP -25 3060 MOVE -x$,y$-4:MOVE -x$,-y$ 
30 TIME=0 :PLOT 85,x$-4,-y$ 
40 PROCcircle(500,500,radius$ 3070 FOR X%=x3+4 TO R$ STEP 4 
,radius$/2541,49) 3080 Y$-SQR(R£Z*R2-X2*X$2) 
50 PRINTTAB(35,30-radius2/25);TIME/100 | 3090 MOVE X%,Y%:DRAW X$2,-Y$ 
60 NEXT 3100 MOVE-X$,Y£:DRAW-XS$ , -Y% 
79 END 3119 MOVE Y$,X$:DRAW-YS$,X$ 
3000 DEFPROCcircle(XC$,YC$,R$,colour$,opg 3120 MOVEY$,-X2:DRAW-Y$,—-X$ 
3010 LOCAL X%,Y%,x%,y% 3130 NEXT 
3020 GCOLop$,colour$ 3140 ENDPROC 
3030 VDU29,XC$;YC$; BES] 


RENUMBER QUERY 


David Wright asks why RENUMBER 1000 and then BREAK, OLD changes the first Line 
number to 232. This is because BREAK resets the first two bytes of the program to 
zero, and the second of these is the high byte of the first line number. OLD cannot 
restore this so the first Line number is reduced modulo 256. 


COMPLETE BOXED UNIT 


FEATU RES 

COMPREHENSIVE eprom programmer 
for 24/28 pin packages 2516/2716/2532/ 
2732/2564/2764/27128/27256. 

AUTOMATICALLY RUNS a user 
programme on power-up or 
pressing BREAK. 

EASY CONNECTION with 
BBC via 1MHz bus interface. 


for ¢ 
only d 


DISCOUNTS AVAILABLE 
for Schools, Colleges & Clubs. 
Trade enquiries welcome 


Send cheque for order to: 


Advanced 


PROGRAMME RUNS on ngah Tr 
BBC models A and B. Pr ae 2 
FULLY AUTOMATIC configuration Lim te is 
for all eproms. mite 
EASY USE with full operator Station Road, Clowne, Chesterfield 


prompting. S43 4AB 
For further 

details send a 

| y XS stamped 
MICROCOMPUTER self addressed 
COMPLETE with C10 cassette containing envelope to the 
programme, cables, software listings and - address above. 


full explanatory manual. 
Model A's may require a 34 way 
connector fitting onto the 1MHz bus. 


Please allow 28 days for delivery. 
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Program: FUN GAMES | Supplier: BBC 
Price: £10.00 inc VAT. 
Reviewer: D.E.Graham 


As with all the BBC's programs for the Beeb, a great deal of effort has gone 
into the packaging, and this is really impressive. It will be a source of 
disappointment to many that the programs within do not always reach the same high 
standards. 


The cassette contains four games programs - and this is all to the good. The 
games are generally amusing diversions, but would not be described as gripping or 
addictive, and they are generally unambitious graphically; though Breakout is an 
exception. 


Breakout: This uses mode 7 graphics, but is quite well executed - and fast - quite a 
bit faster than the breakout published this issue. Colours are used 
effectively, and higher bricks produce higher pitched blips. There is however, 
no way to exit the program - except by using Break. 

Dodgems: Quite a nice program in which you guide a car around a simple maze trying 
to avoid the computer's car which tracks you down. The graphics are simple but 
adequate; though there is again no way to stop the program, except Break: and 
you are left with a dazzling flashing blue and yellow screen each time you 
play. The only way to remove it is to play again. 

Flash: The object here is to remember an ever growing sequence of colours (selected 
from four only). These are flashed in sequence on the screen accompanied by a 
tone; and you must repeat the sequence. The idea is a good one but the 
execution, although adequate is really very unexciting visually. There are just 
four Large blocks of colour. 

Snake: Another mode 7 game. The object is to guide the snake around the screen to 
pick up a letter placed randomly on the screen. When you have eaten that one, 
another one appears - ad infinitum. Again a Little more imagination would have 
improved things a lot. The snake is just a Long band of white; it has no colour 
or texture, and there is very little strategy involved in playing the same. 
This is really a far cry from ComputerConcept's Snake or BEEBUG's Magic Eel which 
are both highly compulsive, have a series of screens of increasing difficulty, 
and call for some degree of strategic play. Against this, of course there are 
four games on the BBC cassette. 


One final point - the programs are loaded in with a header program which tells 
you to turn on the cassette etc, and this is designed to operate in mode 7 - but has 
no mode 7 command - so that if you are in say mode 4 you get a rather odd screen - 
and if you are in mode 5, the instructions are almost illegible. One further remark 
on the header is that when Loading Breakout you are given no screen loading messages 
of any kind, and you have no idea what is happening. 


I also took a Look at two other BBC cassettes, "Painting", and "Music", and have 
generally similar criticisms to make about them. The BBC's reputation for 
excellence in other spheres is not apparently matched, as yet by the quality of its 
software: though these are early days for them. 

— — — ecu — Án E a € ERRORI 
Program: MONSTERS Supplier: Acornsoft 

Price: £9.95 inc VAT Requirements: Model-B 

Reviewer: D.E.Graham 


This is another extremely well written game from Acornsoft which compares for 
sound and graphics with their Planetoid (formerly Defender) and Snapper. The colour 
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graphics is arguably even more striking than these two, and a copy of their 
well-circulated advertisements will show you the scenario. You control (with up, 
down, left and right) a man plagued by monsters. You must take him up the Ladders 
and dig traps for them (you dig with "D"). When they fall in you fill them in with 
"F" and they drop through with a resounding thud. Of course you need to develop a 
strategy to prevent the other marauding monsters from getting you while you are 
trapping the first. On the third page you get a more grisly green monster 
accompanying the red ones, and to trap these, you must dig holes on two Levels, so 
that he has a double fall. You must also finish each screen in a Limited time or 
you will run out of oxygen. The game is certainly very well conceived and very 
addictive. My only adverse comments are on the extreme difficulty of catching the 
green monsters, and on the use of the "D" and "F" keys - to operate these you really 
need to take your hand off the up-down keys, and this makes play difficult if you 
are suddenly attacked when quietly filling in a monster. The price of £9.95 is 
high. Acornsoft would argue that you have to pay for quality, but on the volume of 
sales one assumes that Acornsoft has, they could certainly be a little cheaper. 


WORDWISE WORD PROCESSOR REVIEW 
Supplier: Computer Concepts Tel 09277 69727. 
Price £39.00 + £1.50 +VAT. : Note = Wordwise requires 


Reviewer: David Graham a Series 1 operating system. 


Wordwise is a full word processor package, and is available ex-stock. We have 
not had our copy very long, so this review is of necessity somewhat limited in scope 
- though we are at least using it to produce this review. 

Wordwise is supplied in EPROM, and comes with simple fitting instructions. It 
was only a matter of minutes before we had the chip installed in one of the spare 
"paged ROM' sockets in the Beeb; and on switching on, the system was instantly up 
and running. To enter Wordwise from Basic you type *WORDWISE «return» (or the 
abbreviation *W.). It then announces its presence, and asks if it should clear the 
workspace. When you answer, it presents a menu of options. These are concerned with 
entering and editing text, formatting it, viewing it in its formatted state, 
printing it out, and saving and loading it to disc or cassette. 

Wordwise operates in Teletext mode, so as to keep as much memory as possible for 
text storage, and makes full use of cursor keys and the red function keys. Entering 
text is simple - you just type it in continuously, without any need to press return 
at the end of a Line. In fact it is not necessary to know where the Line breaks are 
at this stage, so you can keep your eyes on the text you are typing from (or the 
keyboard). 

For editing purposes you can step very quickly through the text using a 
combination of the cursor control keys and CTRL and SHIFT. You may enter new text 
wherever the cursor is positioned, and the existing text at the cursor may either be 
overwritten, or automaticallly moved down. 

Wordwise provides a number of the most useful commands found on comparable word 
processors ~ such as block move of text, right justification, change from lower to 
upper case and back, string search and replace etc. This latter command permits all 
occurrences of a given word to be replaced with any other - eg replace "ROM" with 
"read only memory". Incidentally this last feature may be used for the editing of 
Basic programs. These may be read in as a text file, and the names of variables or 
procedures changed, or keywords searched for. 

Once the editing is complete, the text may be viewed in its fully formatted 
state in mode 3 (if there is sufficient memory left), and can then be output to 
tape, disc or printer. 

From the Limited tests that we have been able to perform, Wordwise appears to be 
a most welcome: addition to the software available for the BBC machine. It will 
certainly make the production of BEEBUG a lot easier. 


STOP PRESS 


Subsequent to the writing of this review we have begun to negotiate a special 


discount on the Wordwise package for BEEBUG members. If all goes well, you will 
find details of this on the inside back cover of this issue 
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OUND AND ENVELOPE DESIGN (PART 2) 


by David Graham 


Last month I introduced Ian Soutar's Envelope Editor program, and began to look 
at wayS of using it to edit the pitch envelope part of the Beeb's ENVELOPE command; 
and I hope that you noticed the 'stop press' item on page 2 explaining how to get 
the full program into 16k. This month I shall look at ways of generating and 
editing the amplitude envelope part of the ENVELOPE command. At the end of the 
article there is a brief note of major variables and procedures used in the program, 
the full listing of which was given last month. 


Notes on T 


Before looking at the amplitude envelope, there is one further point to make 
about the variable T mentioned last month. This gives the time base for both 
envelopes in one hundredths of a second. Most examples used last monthhad this set 
at 1 - the fastest rate possible. If you set it to 2 and play a sound (by pressing 
L) you will hear the actual increments in sound, because the change is already slow 
enough to be distinguished by the ear. In fact I cannot see for the moment why one 
should ever require T to take values much greater than 1. 


If you add 128 to the value of T (technically speaking, setting bit 7 of T 
high), this does not change the time at all, but introduces another effect. With T 
in the range 128 - 255, the pitch envelope does not repeat. You can soon see the 
effect of this by running the program with all the data as supplied, but with T 
changed to 129. You just get one pitch cycle followed by a constant tone for the 
rest of the amplitude envelope. 


Amplitude Envelope 


Since we are investigating the amplitude envelope, we will first set the pitch 
envelope to give sounds of a constant pitch. The following will achieve this:. 
T PI] PI2 PI3 PN] PN2 PN2 
1 Ø Ø Ø 6 3 3 Pitch = 109 


As a first working example of an amplitude envelope, it is worth re-creating the 
example given in the User Guide page 247. To achieve this, enter the following 
values: 

AA AD AS . AR ALA ALD 

30 -4 Ø E 128 80 Duration = 7 


You should get a curve very similar to the illustration on page 247; showing how 
closely the Envelope Editor program mirrors the envelope shape as conceived at 
Acorn. This particular envelope is of interest for two reasons. It is the general 
shape produced by some natural percussively produced sounds. And secondly, it 
incorporates the concepts which the ENVELOPE parameters were conceived to reflect 
(and which make it quite hard for a novice to use - though the Editor program goes 
some way to overcoming this). To see how the design of the parameters reflect this 
particular application, we have only to see how the envelope is defined. 


The first thing to note is that while the pitch envelope can take a maximum of 3 
phases, the amplitude envelope has four. They are termed ''Attack',  'Decay', 
'Sustain' and 'Release' from left to right. The initial attack phase takes the 
amplitude fairly rapidly up from zero to the value 126 (at a rate of rise given by 
AA). It then drops at a rate given by AD(= -4) until it reaches the sustain level 
given by ALD (= 80). Audio output then keeps the same value during the sustain 
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phase (because AS, the change rate for this phase is zero). The sustain phase is 
maintained until Duration (the fourth parameter of the SOUND command) as counted 
from the start of sound output, is exceeded. The amplitude is 'released', and 
decays at a rate given by AR (= -5). 


As you can see from this, the amplitude envelope is quite a bit more complex to 
use than its pitch counterpart. Because of this it is difficult to develop a rule 
of thumb to employ when creating amplitude envelopes; though for many purposes it 
might be useful to start off from this basic shape, and edit it to suit your 
requirements. You can streamline things by incorporating this data in the program 
itself. To do this alter the data in line 70 to read: 

70 DATA 1,0,0,0,6,3,3,30,—4,0,—5,120,80 | 
and alter line 30 to read: 
30 p%=15Ø:d%=1Ø 


If you press 'L' you will hear that the amplitude of the tone does follow the 
graph. You can then begin to edit the amplitude for various effects. Suppose 
firstly that you wish to create the sound of a small bell, or clock chime. Before 
generating a suitable amplitude, we must get the tonal quality or timbre more or 
less right. A simple way to create the right sort of effect is to use two SOUND 
commands, whose pitches differ by a small amount, but which are both controlled by 
the same ENVELOPE command. Therefore insert into the program the line 
135 SOUND 2,1,p%+1,d%.- This puts sound channel 2 under the control of envelope 1 
(the editor uses envelope 1), and gives it a pitch one unit greater than the first 
sound channel. If you now run the editor with the data above to give a plain pitch 
envelope at pitch 150, and an amplitude envelope as described above, then you should 
hear a bell-like sound. You will note that there are two principal defects. It 
lasts too long before fading away - so change Duration to 4 or 5; and it does not 
start abruptly enough. The so-called attack rate (AA) should therefore be increased 
to the full 127. 


If you want to make an electronic organ sound on the other hand then you need a 
much slower attack rate. Keep the two SOUND statements as they are, but change 
Pitch to 100, and Duration to 1%. An attack rate of AA = 10 to 20 gives the desired 
effect. Reducing it further gives something more reminiscent of a violin - but does 
not sound much like one because we do not have the right timbre. To simulate a 
variety of timbres, you need to be able to mix the notes from the three sound 
generators at different amplitudes - you therefore need to use several envelopes 
simultaneously, and this is beyond our present Scope. 


If you remove the sustain phase altogether, you get a much more dull thud. Try 
pitch = 3. Duration = 10 


AA AD AS AR ALA ALD 
127 -5 -5 -5 128 60 
White Noise 


Bangs, crashes and other effects can be produced quite easily by using the 
channel zero option in the SOUND command. To try this, delete line 135 if you have 
entered it, and alter 130 to: 

130 SOUND @,1,p%,d% 
If you run the program now, you will find that the value of 'pitch' (Ø to 7) defines 
the 8 available sound effects (see User Guide pages 348 and 349, or BEEBUG 1 page 
11). Entering pitch =Ø gives a 'division by zero' error in the graph plot routines, 
but you get the same sound with pitch = 8 (without the attendant error). | 


The three varieties of white noise are given by setting 'pitch'-4,5 or 6. If 
you have set the amplitude envelope as in the first examples (with an attack rate of 
SØ) you will get a rather odd sound. To make it sound like a bang, you need a fast 
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attack so try AA 127. This gives the right attack rates but the sustain 
obviously needs removing - so make AD, AS and AR each equal to -5, change ALD to 69, 
and change T to say 3 or 5. This now gives a reasonable explosion, though you do 
need a better speaker to reproduce it properly. Changing pitch values between 4 and 
6 will change the deepness of the note. To summarise, here is a set of values 
suitable for explosions: 


Change line 130 to: SOUND 9,1,p2,d$ 


Data: T PIT ` PI2 PI3 PN] PN2 PN3 
5. Ø Ø Ø 6 > 3 3 Pitch=4,5,or 6 
AA AD AS AR ALA ALD 
127 -5 -5 -5 1260 60 Duration=1@ 


though you should experiment around these parameters. 


Once again there are vast rewards for the experimenter, and these articles are 
intended to help to familiarise people both with the Editor program, and the 
commands themselves. There is of course so much more that can be done with the 
reasonably powerful commands available on the Beeb. As a first area of experiment, 
you might like to try introducing small variations into the pitch envelope when the 
Sound is on channel zero. 


Notes on the Envelope Editor Program 


Procedures 

PROC A Draws amplitude envelope 

PROC C Handles pitch and amplitude parameters on screen 
PROC P Draws pitch envelope 

PROC PL. Plays the sound 


Major variables 
E%( ) Holds current envelope parameters 
1%( ) Holds envelope parameter names and data ranges 
p% Value of pitch (set in Line 38) 
d$ Value of Duration (set in Line 3) 


The main program loop is at Lines 80 and 90. You may alter the preset ENVELOPE 
values by altering the 13 pieces of data in line 70. These are the values of T 
onwards - ie T, PI], PI2....etc. (See User Guide for ENVELOPE syntax). If you want 
to find out the envelope values that you have edited into the program at any stage, 
they are simply as follows, and may be read directly from the screen - all except 
the first parameter N - which is set to 1l. 

ENVELOPE 1, T, PI], PI2, PI3, PN], PN2, PN3, AA, AD, AS, AR, ALA, ALD 

Remember that you can always get back to the preset data values by pressing 
Escape, and re-running the program. Note that if you are typing in this program 
take care not to confuse the lower case L (appearing as 1$ in line 20 and elsewhere) 
with a figure one. There are no appearances of the expression 1$ in this program - 
it will always be 1). 5E) 


LOADING TIMES 


| Charles Lyne says that the approximate Loading time from cassette can be given 
in seconds by PRINT &****/&4E, where **** js the program Length printed on the 
Screen after a sample Load. 
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Title: Practical Programs for the BBC Computer and Acorn Atom 


By: David Johnson-Davis Price £5.95 
Reviewer: David Graham 


As its title suggests, this book is not concerned with teaching you to 
program, or with teaching you to use the computer, but with the presentation of a 
number of programs. The range of programs offered is good, and includes games, 
graphics, number and word handling, and rather surprisingly an SPL compiler. With 
each program there is discussion of the objects and principles involved (though 
nothing on the programming principles). The program listings are also broken down 
into useful subsections with boxed functional headings. This makes them relatively 
easy to follow. 


The final section of the book, chapter 5, introduces the subject of compilers, 
and gives a listing for an experimental Simple Programming Language compiler for the 
BBC machine, plus a number of SPL programs that may be run on it. This all looks 
very interesting, and well worth some closer study. But if you are not interested 
in compilers, you are left with only 65 pages of the book; and since some of that 
Space is taken up with the Acorn Atom version of each program presented, the book 
becomes a little expensive per useable page. It does, however, contain some good 
ideas, such as the brief program given below which plots the very nice 3D object in 
the photograph. 


10 REM FROM : 

20 REM PRACTICAL PROGRAMS FOR THE 
30 REM BBC COMPUTER AND ACORN ATOM 
49 REM BY DAVID JOHNSON-DAVIS 

50 MODE4:VDU29,640;512; :XS=4:YS=4 
60 A-640:B-A*A:C-512 

70 FORX-ÜTOA STEPXS:8S-X*X:P-SQR(B-S) 
80  FORI=-P TO P STEP 6*YS 


90 R=SOQR(S+I*I) /A 

100 Q- (R-1) *SIN(24*R) 

118 Y=1/3+Q*C 

12Ø IFI--P THEN M=Y:GOTO15Ø 
130 IFY>M M=Y:GOTO16@ 

140 IFY>=N GOTO1 76 

150 N-Y 

160 PLOT69,-X,Y:PLOT69,X,Y 
170 NEXT:NEXT 

180 END 


Title: Let Your BBC Micro Teach You to Program 
By: Tim Hartnell Price £6.25 
Reviewers: David Graham and Sheridan Williams 


This book has a quite different aim from David Johnson-Davis' book. It is 
intended primarily for people with very little experience of the BBC machine, and 
introduces most of the Basic keywords from first principles. It appears to do this 
reasonably competently, and also to contain a good number of programs that readers 
can experiment with, and which illustrate the principles under discussion. The book 
is quite nicely produced, and would appear at first Sight to represent reasonable 
value. Moreover there is a great need for such a book spite of all this, we 
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feel that we cannot recommend it; and this is a pity. Our strong reservations arise 

because the book in our view generally provides a very bad example of programming 
practice. For example the implementation of procedures on the BBC Micro really 
makes subroutines, with their attendant lack of structural clarity, a thing of the 
past. Yet very many of the programs in this book use subroutines in the place of 
procedures. Immediately after the section on procedures there are a few programs 
which do make good use of procedures, but this is not the case generally. 
Furthermore there are a number of occasions where procedures are actually exited 
with a GOTO! This is not good practice, and can in certain situations cause the 
machine to issue error messages. Apart from the generally unclear structure of 
programs, little use is made of the long variable names on the BBC machine - even on 
shorter programs. The likely reason for these weaknesses is that many of the 
programs may have beem adapted from those designed for less complex machines - and 
with one program, "Personal Accounts", it is specifically stated that it has been 
adapted from a program for the ZX80. 


In short, although the approach is a good one, and individual features of Basic 
clearly introduced, a book which claims to be teaching you to program the BBC Micro 
should in our view make far greater use of the advanced features of that machine in 
the programs given as examples. 


PROTECTS t : un i 
YOUR uis er e 
MICRO mr 


THE BENEFITS full protection 


improved mobility 
ae AT safe storage SPECIAL LOW 
PCW SHOW! „J easy pack/unpack PRICE! 


attractive style 


THE CHOICE IS YOURS Tuo alternatives. Both will carry the full 
system", Complete with disk/tape unit,cables,manuals,software etc. 


| SYSTEM SAC MICRO CASE 

|A top quality,water proof nylon À strong & durable case,foam 

bag lined with foam. Adjustable lined for protection. Adjustable 
central partition & packing ensure |centre board & packing provide 
complete protection, Double zip flexibility. Top opening with 

| full opening top for easy pack/ two locking fastens & strong 
unpack. Adjustable shoulder strap/ | carrying handle. 

handle with non slip pad. Colour: Black. 

Colour: Black with gold logo. Size : L500xD400xW230 


Size s: L500xD400xW230 | 
Please supply at special group price 

| See the FULL SYSTEM CARE RANGE |()SYSTEM SAC £17.95+2.00pk&p £19.95 
| of accessories at your local (Q MICRO CASE £44.95+2.00p&p £46.95 
micro dealer. Name: Tels 


| Cheques to Micro Aids,Freepost, Address: 
2 Boston Close Culcheth Warrington WA3 1BR Tel.092 576 2804 
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LOGUE UPGRADE 
by Rob Pickering 


Continuing with our series on upgrading a model A micro: this month we describe 
how to fit the Analogue To Digital Converter. This will allow joysticks to be used 
with the computer, and enable the computer to read in, or measure, small analogue 
voltages. 

Rather than giving a description of what an Analogue to Digitial (A-D) converter 
is and what it can do, this article will be concerned purely with the fitting and 
testing of the device. 

If you have already added the RS423 upgrade described last month, then it won't 
take you long to fit the A-D converter. Removing the case and the motherboard then 
replacing them afterwards constitutes most of the work. Since this was described 
fully last month, we will refer you to the relevant sections of BEEBUG no 7 in order 
to avoid repetition. 


WARNING 

As stated last month, carrying out any user-upgrade is likely to terminate your 
guarantees If you have already made any alterations to your computer then this 
won't worry you. Also, the upgrade requires very delicate soldering on the main 
Printed Circuit Board (PCB) which is a serious matter at any time and should only be 
undertaken by those well skilled in delicate soldering. 


IDENTIFYING THE COMPONENTS 

There are only three components in the upgrade kit. One socket and two 
Integrated Circuits. Given below are the labels by which the components are 
identified on the circuit board, followed by a description. 


SK6 ...... 15-pin D-type socket. Right-angle PCB mounting. 
I.C.73 ... 28-pin D7ØØ2C 
I.C.77 ... 14-pin 74LS0QN 


In identifying the components you may find that the code on top of your I.C.s is 
not quite the same as above. However, the codes should contain "D7ØØ2" and "74LS00" | 
to stand any chance of being the correct components. If this is not the case then I 
suggest that you get in touch with your supplier and ask for advice. 


TOOLS: You will need a soldering iron of less than 25 Watts and with a fine tip; a 
cross-head screwdriver size No.4; a pair of long-nosed pliers are a good idea though 
not essential. An I.C. insertion tool will save a lot of trouble, though not 
essential and not worth buying just for use on this occasion. 


TAKING IT APART 
First you need to open up the computer, and remove the motherboard. Follow the 
instructions 1-6 and 8-10 in BEEBUG no 7 pages 25 and 26. 


FITTING THE SOCKETS AND I.C.s 

(1) Insert SK6 (The 15-pin 'D'-type socket) into the set of holes marked "SK6" and 
situated to the left of the DIN plugs, and hold it in position. 

(2) Solder the 15 pins of SK6 very carefully (from the underside). Although it may 
not be very obvious, there are fine copper tracks running between some of the 
pins. Unless you are very careful with the soldering iron, you can bridge these 
wires with solder and short them out. | 

(3) You can now insert the two I.C.s. Turn the motherboard back so that it is 
component-side-up. Look in the back-left region of the board, about 12cm in 
from the left and the back, and locate a large empty socket marked I.C.73 and a 
much smaller socket marked I.C.77. Insert both I.C.s into the corresponding 
sockets, the same way round as the rest of the I.C.s on the board. That is with 
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sma ped dimple towards the back of the board. Be careful as usual 

not to bend the pins out of shape, or to use too much force, and remember to 
keep static electricity away from them. | 

(4) Now that all the components are in place you can reassemble everything. You 
should already have turned the motherboard back so that it is the correct way 
up, ready to be put back in place. 


RE-ASSEMBLY 


To re-assemble the computer, follow the instructions 13 to 20 given in BEEBUG 
no 7 page 26. 


TESTING 


The easiest way to test the A-D converter after fitting is to simply plug in 
some joysticks and try it out. My thanks to John Yale for the following program 
designed to test a pair of joysticks of type ANH] as supplied by Vector and Acorn 
dealers. It gives visual representation of the digital values produced by the 
joysticks, but also gives a sort of graphical display as well. This program should 
help to give you a grasp of programming to control the joysticks. Line 6% uses the 
ADVAL (see User Guide) command to read in two voltage levels from each joystick. 
One represents horizontal and the other vertical positions. Traces are produced on 
the screen for each joystick, and measured values are also printed out. Lines 169 
and 180 use the ADVAL function on channel zero to test whether the fire buttons are 
being pressed. 


5 REM JOYSTICK TEST PROGRAM 120 DRAW 1280,Y 
10 ON ERROR GOTO 2090 130  PRINTTAB(0,8-4*I);"Channel ";I;V;SPC(8) 
20 MODE 4 140 NEXT I 
30 VDU23;8202;0;0;0; 150  PRINTTAB(10,39) ; 
40 REPEAT 160 IF ADVAL(@) AND ] THEN PRINT"FIRE" 
50 FOR I=] TO 4. ELSE PRINTSPC (4) 
60 | V-ADVAL(I) DIV 64 170 PRINTTAB (25,30) ; 
70 Y-800-128*I 180 IF ADVAL(@) AND 2 THEN PRINT"FIRE" 
80 | MOVEO,Y ELSE PRINTSPC(4) 
90 | GCOL 0,1] 199 UNTIL FALSE 
100 DRAW V,Y 200 MODE 7 
118 GCOL 90,0 210 REPORT:PRINT" AT LINE ";ERL 
SUPPLY 
The analogue upgrade kit is available from a number of suppliers - see 


advertisers and discounts page in this issue. I would like to take this opportunity 
to thank Customised Electronics Limited (known as CEL) for their much appreciated 
help in supplying the kit for the A-D converter, as well as last month's RS423 kit 


LOUD AUDIO 


The audio output from the BBC micro is generally rather quiet, and many of the 
subtleties of the excellent sound facilities on the Beeb can be missed because of 
this. There are two ways to make it Louder: 


1. Turn it up. There is a preset volume control fairly close to the loudspeaker 
connector under the keyboard. This may be turned up a Little. 


2. Use an external speaker. The audio amplifier in the Beeb is an LM386. This is 
easily capable of half a watt of audio with a decent sized 8 ohm speaker. You 
could connect a socket so as to break the audio Lead to the internal speaker, and 
the socket could be mounted in the RESET switch hole at the rear of the machine. 
Very loud audio can be obtained in this way. s= 
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CHIP NOTES — 
by John Yale 


The new User Manual explains how to use the VDU 23 command to alter the 
registers in the 6845 CRT Controller chip (page 385), but gives no information on 
how many registers there are or what they do. This article provides brief 
information for those users interested in finding out more about this interesting 
I.C. We should stress that this article is for the experimenter and that it is not 
normally necessary to address the 6845 directly, since the operating system provides 
all the control required for most applications via VDU calls. 


The Motorola 6845 data sheet reveals that there are 18 registers, 14 of them 
write only and two read only. The registers are named RO to R17 and may be written 
to on the BBC machine with the VDU command: 

VDU 23,0,R,X,0;0;0; | 
where R is a number in the range @ to 17 corresponding to the i5distef, and X is the 
value of the byte of data to be written. 


Some of the registers may be read, but no BASIC command is provided for this, so 

the memory mapped IO must be addressed directly or via a SHEILA call. The 6845 
resides at &FEØØ and &FE@1, and to read register R into the Variable X the following 
code may be used: 

?&FE00 = 

X = ?&FE] | 
The first line writes the register number into the 6845 address register whilst the 
second reads the specified register from the register file. Only registers R14 to 
R17 may be read. | 


The following Program will allow any of the registers to be written and the 


readable register pairs are displayed. R12,13 is displayed as it does seem to be 
readable even though the data sheet indicates that it is not. 


16 REM CRTC READ/WRITE 150 PROCREAD 

20 REM BY JOHN YALE 160 UNTIL FALSE 

30 ON ERROR OFF 178 

40 MODE 7 180 DEF FNread(R) 

50 INPUT'"What mode ",mode 190 LOCAL X 

60 MODE mode 200 ?&FE00-R 

70 PROCREAD 210 X-?&FE] 

80 ON ERROR GOTO 3 220 ?&FEØØ=R+1 

90 INPUT'"What register ",R 230 -256*X-?&FEQ] 
100 IFR<@ THEN15@ 248 DEF PROCREAD 

118 ON ERROR GOTO 8@ 250 FOR R1=12 TO 16 STEP 2 
120 REPEAT 260 PRINT"  R";R];"-"^FNread (R1); 
130 INPUT'"Value ",X 270 NEXT R] 
148 VDU 23,0,R,X,0;0;0; 280 ENDPROC 


After RUNning the program, enter the mode you wish to investigate. The contents of 
the three readable register pairs R12,13 R14,15 and R16,17 will be printed out. 
You will then be prompted for a register number, and the value to be written to it. 
At any stage pressing Escape will return you to the previous prompt in the program, 
finally exiting at the "Mode ?" prompt. Note that there is no error checking on 
inputs, and that pressing return on empty data will read in a zero; and that 
entering data zero into register zero turns off the VDU drivers, and thus blanks the 
Screen. (Press 'Break' to recover). 

Now that you are all set to investigate, what do the registers actually do? The 
following descriptions taken from the data sheet should help to start you off. You 
may find registers 12,13 and 2 to be the most di 
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Horizontal Total Register (RØ) 


This 8-bit write only register determines the 


horizontal sync frequency. It is programmed with 
the total number of displayed characters plus the 
non-displayed characters minus one. This register 
is normally set to 63 for 20 or 40 column modes, 
and 127 for 898 columns. 


Horizontal Displayed Register (Rl) 
This 8-bit write only register determines the 
number of displayed characters per line. The 


number programmed must be less than the contents 
of R@. The character size is not changed by this 
command, the lines get shorter to accommodate 


fewer characters, and the start of lines will 
slant across the screen, unless the VDU driver is 
changed. 


Horizontal Sync Position Register (R2) 

This 86-bit write only register sets the 
position of the horizontal sync pulse in character 
times. When the programmed value is increased the 
display is shifted to the left. When the 
programmed value is decreased the display is 
shifted to the right. Changes of plus or minus up 
to 5 can be used for screen shift effects. The 
sum of the contents of Rl, R2 and R3 should be 
less than RØ. Typical values for R2 are 51 for 
Mode 7, 98 for Mode @, and 49 for Mode 5. 


Horizontal Sync Width Register (R3) 

This 4-bit write only register controls the 
width of the horizontal sync pulse from zero to 15 
character times to compensate for different 
monitor's requirements. ` 


Vertical Total Register (R4) and 


Vertical Total Adjust Register (R5) 
The frequency of the vertical sync is set by 


both R4. and R5. The calculated number of 
character line times to get exactly a 50Hz 
vertical refresh rate is not an integer. The 


integer number of character line times minus one 
is programmed into the 7-bít write only vertical 
total register (R4). The fraction of character 
line times is programmed in the 5-bit write only 
vertical total adjust register (R5) as a number of 
scan line times. | 


Vertical Displayed Register (R6) 

This 7-bit write only register specifies the 
number of displayed character rows on the Screen, 
and is programmed in character row times. Any 
number smaller than the contents of R4 may be 
used, and may be used to blank off an area of the 
screen. 


Vertical Sync Position (R7) 
This 7-bit write only register controls the 
position of the vertical sync pulse in character 


line times. When the programmed value is 
increased, the display position of the screen is 
shifted up. Any ntmber equal to or less than the 


vertical total (R4) may be used. Any offset which 
has previously been specified in a *TV command 
will be used to adjust the value sent to R7. | 


Interlace Mode Register (R8) 
This  2-bit write only register has the 
following effect. 
Normal sync mode (Ø or 2): 
available, 


Only one field is 
and ` each scan line is refreshed at 


| Interlace sync and Video mode (3): 


the vertical sync frequency. 


| Interlace sync mode (1): The frame time is divided 


between even and odd alternating fields. The 
horizontal and vertical timing relationship (VS 
delayed by half a scan line) results in the 
displacement of scan lines in the odd field 
with respect to the even field. In the 
Interlace sync mode the same information is 
displayed in both fields. 

Alternating 
lines are displayed in the even ahd odd 
fields. 

Care must be taken when using either interlace 
mode to avoid an apparent flicker effect. This 
is due to the doubling of the refresh time for 
all scan lines since each field is displayed 
alternately. This will be more apparent on 
some monitors than others due.to the different 
persistence phosphors used. In addition there 
are restrictions on the programming of the CRTC 
registers for interlace operation: 


| a. The horizontal total register (RØ) must be odd 


(i.e. an even number of character times) 

b. For interlace sync and video only, the max imum 
scan line address R9 must be odd (i.e an even 
number of scan lines) 

c. For interlace sync and video only, the vertical 


displayed register R6 must be even. The 
programmed number must be half the number 
required. | 

d. For interlace sync and video only, the cursor 


start register R10 and cursor end register R11 
must both be even or both odd depending on 
which field the cursor is to be displayed in. 


Maximum Scan Line Address Register (R9) 


This 5-bit write only register determines the 
number of scan lines including spaces that make up 
a character. 


Cursor Start Register (R19) and 
Cursor End Register (R11) 

These registers allow a cursor of up to 32 
scan lines to be placed on any scan line of the 
character block. RI@ is a 7-bit write only 
register used to define the start scan line and 
the cursor blink rate. The least significant 
5-bits determine the cursor start scan line 
counting from the top of the character. Bits 5 
and 6 of R1@ control the cursor operation as shown 
in the following table: 


Bit-6 Bit-5 Cursor Mode 
Ø Ø Non-blink 
Ø ] Non-display 
] Ø Blink,1/16 field rate 
] ] Blink,1/32 field rate 


Rll is a 5-bit write only register which defines 
the last scan line of the cursor. 

Note that the cursor off command given on page 
77 of the manual: VDU 23;8202;8:0;@; is equivalent 
to: VDU 23,0,10,32,0,0,0,0,0,0 and is thus sending 
the value 32 to R10, ie the cursor non-display 
command. 


Start Address Register (R12-H,R13-L) 

This 14-bit register pair controls the first 
address output by the CRTC after vertical 
blanking. It consists of an 8-bit low order 
register (R13) and a 6-bit high order register 
(R12). The start address register determines 


which portion of the RAM is displayed on the 
is accomplished by 


Screen. Hardware scrolling 
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modifying the contents of this register. By 


| Light Pen Register (R16-H,R17-L) 


changing the contents by the line length - eg 49 | This 14-bit read only register pair captures 
or 80, a line feed, up or down, is effected | the refresh address output by the CRIC on the 
instantly, with no effort from the CPU. A larger | positive edge of a pulse input to the LPSTB pin 
change could be used for a complete page change. į (available on the Analogue input connector). 
Since it is so fast, it should be possible to | Since the light pen pulse is asynchronous with 
change pages for an animated display. Note though į respect to refresh address timing, an internal 
that the two registers provide only a i4-bit | synchroniser is designed into the CRTC. Due to 
address. The additional 2 high bits are generated | delays in this circuit the value of R16 and R17 
from the CRTC row address generator. | will need to be corrected in software. 
Cursor Address Register (Rl4-H,R15-L) | Acknowledgements: We are most grateful to Bazyle 

This 14-bit read/write register pair is | Butcher and 'ACCumulator' (The magazine of the 
programmed to position the cursor anywhere in the | ‘Amateur Computer Club') for the inspiration for 
display using the same addressing as for R12,13. | these notes. 


Noisy Audio 


According to a letter from Acorn (Ref AAW/MS) to one of our members:- 
"The Loudspeaker noise is caused by the fact that the computer's sound 
is generated in a digital fashion. An adjustment to this is available 
from a dealer. 
The recommended modification is a ..... 10k resistor between 
pin 8 IC20 and ground (hole just below pin 82." 
[We think that the real cause is an unterminated audio input Line. Ed] GES] 


MICROWARE (LONDON ) LTD PRESENT THE "ZL"] 
RANGE OF DISK DRIVE SUBSYSTEMS | 
FOR THE BBC MICRO. 
BARE DRIVES FROM ONLY £ 125.00 
IN PLASTIC ENCLOSURES £ 135.00 


DUAL UNITS WITH OWN P.S.U. £ 295.00 


INCLUDES 12 MONTHS WARRANTY ON CASED SUBSYSTEMS 
EPSON PRINTERS 


MX-BÜT/S....eeoavesvacerssasfeofo2asÜ0 
MX BÜFT/S....ce eee eor eroe oÉ325,00 
MX 100/35... cere esse nasse t425.00 


PRINTER CABLE cs aa asa wessnef. 15-00 


Full range of printers carried in stock. Come and see 
us for a free demonstration. 

PRICES DO NOT INCLUDE POSTAGE AND PACKING OR VAT. 
MICROWARE (LONDON ) LTD. 637 HOLLOWAY RD. LONDON N19. 


PHONE 01 272 6398 FOR FURTHER DETAILS. 
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9.1 P | by Adrian Calcraft 


The object "m this game is tó Best a brick watt by boun ina a ball at it. The 
wall disintegrates a little every time the ball hits it, but it takes concentration 
and skill to remove the whole wall. A bat is controlled by the player, who must 
position it (left/right) to ensure the ball is kept in play. Only three serves are 
given per game, plus a bonus of one serve for each complete wall demolished. 

Striking the ball whilst the bat is in motion causes the ball to spin from 
normal path, allowing more control for the skilled. A random spin also occurs 
the ball hits the upper boundary once having broken through the wall. 

The game uses Mode 4, which leaves precious little space for the program on 
machines, consequently the variables and procedure names have all been cut to a bare 
minimum. When typing the program into a 16k machine, remove all REMs and ensure that 
no extra spaces are inserted, or you may run out of room.. But do not remove spaces 
in IF statements, because the "THEN" has been Left out to save space, Also the 
instructions in the program will only fit into 32k machines, so those with 16k 


its 
when 


16k 


please ignore lines:- 140 and 1230 to 1330. 


Bat controlsare "Z" for Left, and "X" for right, and the control of the 


by Lines 180 to 270. 
For those interested here is a list of variables and procedures 


1% 
J^ 


NA 
P% 
Q% 
S% 
T% 
VA 
XA 
YA 
Z% 


X1% 


CRZ% 
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Used to determine the wall 


Used in FNCR to check when ball 
hits the bat or a brick. 
Count of current score, on this 


wall only. 
Used with AZ. 
The number of brick segments to be 


hit by the ball (1 or 2). 
Final spin. The total spin given to 


the ball by the bat. 
Horizontal direction 
(T or -1]. 

The highest score on the machine. 
The accumulated spin, transfered to 
F% when bat hits the ball. 

Level of. play. Used to determine 


indicator 


how many walls to build. 


The score needed at this level, on 
this wall only, to destroy the 
current wall totally. See Bx. 
colour. 
Red, blue and green used. 


X co-ordinate of ball's position. 
Y co-ordinate of ball's position. 


Number of serves remaining. 


Total score, not including the 
score on this wall (BZ). 

Vertical direction indicator 
(1 or -1). 


X co-ordinate of bat's position. 
Y co-ordinate of bat's position. 


Used as indicator for ball out of 
play. 

X co-ordinate of  bat's Last 
position. | | 

Correction value, used to enable 
double bounce when entering wall 


B$ 
BT$ 
W1$ 


W2$ 


ProcST 


ProcNW 


ProcBT 


ProcBL 


ProcW 


ProcNBL 
ProcBX 
ProcNG 


FNCR 
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program 


String variable representing ball. 
String variable representing bat. 
String variable representing ist 
/3rd /5th rows of bricks. 

String variable representing 2nd 
/4th rows of bricks. 


Start proc. Instructions, only 
for 32k machines. 

New wall proc. This proc is 
used to set up a new wall at 
the beginning of a game, or 
after the wall is destroyed. 
Bat movement proc. This proc is 
used repeatedly to check for 
movement of the bat by player, 
to increment the spin count and 
redraw the bat. 

Ball movement proc. Repeatedly 
used to move ball, check for a 
bounce, change direction 
indicators, update counters and 
check for ball out of play. 
Wall count proc Used to 
redisplay score and check for a 
destroyed wall. 

New Ball proc. After ball out 
of play, this re-serves ball. 
Draw Box proc. Sets up screen 
at beginning of a game. 

New Game proc. Displays your 
score and high score. | 
Check for crash. This function 
enables the use of the POINT 
keyword, by calculating the 
ball's position relative to the 
_ graphics origin 
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1 @MODE4 
20VDU19,1,1,0,0,0,19,0,4,0,0,0 
30VDU 23,226,7,28,48,96,96,48,28,7 
ABVDU 23,227,224,56,12,6,6,12,56,224 
SÜBS-CHRS2264CHRS227 
60VDU 23,224,0,254,254,254,254, 254, 2 
54,254 
TØVDU 23,225,0,255,255,255,255,255,2 
55,255 
80VDU 23,0,11,0;0;0; 
O9Q*FX 11,7 
199W1S-CHR$2244-CHR$225:W2$-CHR$2254CH 
R$224 
11@W1$=STRINGS (18,W1$) :W2S=STRINGS (18 
,W2S) 
12@BTS=STRINGS (4, CHR$225) 
13012$-0:CR2-0 
14Q0PROCST 
150F2-0:B2$-0:Z2-TRUE:S2-21:L2-22:T$-0:M 
$-72:J£$-20:N$-] 
1600NERROR GOTO31Ø 
170REM 
180PROCNW 
19@REPEAT 
2ØØREPEAT 
21 ØPROCBT 
22ØPROCBL 
23ØPROCW 
24ØUNTIL Z3=FALSE 
25ØPROCNBL 
260UNTIL S%<Ø 
270ENVELOPE1,1,1,10,10,1,10,5,127,0,0 
;-5,26,126 
280SOUND2,1,20,100 
290FOR A-1TO10000 :NEXT A 
300VDU 19,1,1,0,0,0 
31 9PROCNG:GOTO]! 56 
320REM 
330DEFPROCBX 
340GCOL4 , 1 
35@MOVE55, 20 : DRAW1 225, 20: DRAW1 225,923 
: DRAW55 , 923: DRAW55 , 20 
360PRINT TAB(2,9) ;W1S 
370PRINT TAB(2,10) ;W2S 
380PRINT TAB(2,11);Wl$ 
390IF L%>3 PRINT TAB(2,12);W2$ 
4ØØIF L%>4 PRINT TAB(2,13) ;W1S 
410X2$-2:Y2-29 
420PRINT TAB(19,2) "SCORE" 
430PRINT TAB(20,2)"SERVES LEFT" 
A4ØPRINT TAB(X%,Y%) :BTS 
450P%=RND (33) :P$=P3+3:V$=-1 
466Q3=RND (11) :022024-15:H2-] 
47 9ENDPROC 
480REM 
490DEFPROCBT 
500X12-X$ 
5]10IF INKEY(-67) X$-X$42:J2-J942:PRIN 
T TAB(XI$,Y2$)"  ":GOTO540 
S20IF INKEY(-08) X$-X$-2:7$-J2—-2:PRIN 


NOWS 
ae 
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:GOTO540 

530J$-0 ` 

5AQIFX2«2 X2-2 

55@IFX%>34 X2$-34 

560PRINT TAB(X£,Y$); ips 

570*FX 15,0 

58GENDPROC 

590REM 

600DEFPROCBL ` 

610IF FS>4 F2-4 

62ØIF F$«-4 Fg--4 

630IF Q$«29 PRINT TAB(P2,Q2)" " 
640P$-P2-H24F2:02-02--V$ 

650IF P%>36 P£-36:H$--]1:VDU 7:F$--F$ 
660IF P$«2 P$-2:H2-]1:VDU 7:F$--F$ 
670IF Q%>3Ø Z£-FALSE:GOTO760 

680IF Q%<4 Q%=4:V%=] : PRINT CHRS(7) : IF 
RND(3)23 F$-F$-(H£*3) 

690D$-0:IF F$<>Ø F2-F2-H$2 

7001F FNCR(P%,Q%)<>@ D%=D%+] 

71@IF FNCR(P$+1,0%)<>@ D%=DS+1 

7201F D%>@ B%=B%+D%:V%=-V%:IF Q2-29 F 


$-J$:B2$-B2-D$ 


7301F D%>Ø VDU 7:CR$-CR24] ELSE CR$-0 
7AQIF CR%>] Hg--H$:V$--V$ 
750IF Q$«29 PRINT TAB(P%,0%) ;BS 
760ENDPROC 
77ØREM 
780DEFFNCR(P1$,012) 
790A$-1280* ( (P19-0.5) /40) 
800C$-1023* ((31.5-012) /32) 
810-POINT(A2,C£) 
820REM 
830DEFPROCW 
840PRINT TAB(16,2) ;B24T$ 
850PRINT TAB(32,2);S$ 
8601IF B$«»M$ GOTO9ØØ 
870 N$-N$*2:1F N$-8 N%=] 
880VDU19,1,N2,0,0,0. 
890PROCNW 
O9GENDPROC 
91QREM 
920DEFPROCNW 

` 930L$-L24-1:9$-824]:T9-T24B$ 
940B2-0:M$-M$436:1F M$»180 M$-180 
959ENVELOPE 1,2,5,5,5,10,10,30,10,10, 


10,190,100,150 


960SO0UND 1,1,25,58 
970NOWS-TIME :REPEAT UNTIL TIME »NOW$ 


+490 


980CLS 

990PROCBX 

19000 ENDPROC 

101 ØREM 

1Ø2ØDEFPROCNBL 

1Ø3ØS%=5%-1]:IF S%<Ø GOTO1Ø9Ø 

1Ø4ØFOR PIT%=5Ø TO Ø STEP-] :SOUND 1,- 


19,PIT$,1 :NEXT 


1050NOWS-TIME-180 :REPEAT:UNTIL TIME>= 
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1169PRINT TAB(8,10)"HIGH SCORE" ,I% 
117QPRINT TAB(16,12)"ANOTHER GAME? Y/N 
Li 


1180REPEAT 

1199F$-GET:UNTIL F$-&59 OR F$-&4E 
1200IF F$-&4E GOTO!336 

1210FOR F$-21TO1000:NEXT 

1220 ENDPROC 

1230REM 

1240DEFPROCST | 
125ØPRINT TAB(5,4)" HOW TO PLAY" 
1260PRINT TAB(5,6)"THE OBJECT IS TO DE 


STROY" 
127@PRINT TAB(5,8)"THE WALL,BY BOUNCIN 
G THE" 
1288PRINT TAB(5,1Ø) "BALL AT IT" 
1970P$-RND (33) : P3=P3%+3 EE TAB(5,12)"BAT CONTROLS ..LEF 
%= : 08=0%+15 T Z..RIGHT X" 
ou m E 1300PRINT TAB(5,28)"HIT A KEY WHEN REA 
1109 ENDPROC DY TO START" 
11 1ØREM 131ØF%=GET 
112ØDEFPROCNG 1320ENDPROC 
113@CLS:ONERROR GOTO] 330 1330REM 
1140PRINT TAB(8,8)"YOU SCORED" ,B%+T% 1340MODE7 
IF BS+TZ>1% I$-B$4T$ 


1350*FX 11,50 ras] 


CASSETTE VOLTAGES 

Alastair Lack says that he has discovered from Acorn that the recommended input 
voltage to the computer from cassette is 500 mv ptp. The output voltage is 
180 mv ptp Chis measurement). - 


4816 100ns memory uparade IC’s 
"o 100 up 
2.10 1.95 
1 off price less 19% for Beebus members 
Flæase add VAT. No Postase on sets of B 


Happu Memoriess Gladestrusr Kinatons 
Herefordshire. HRS 3NMY 


Tels (054 422) 4618/6428 


Amrcess and Visa token over the ’%phone. 
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BEEBUG is happy to act as an information point for Local groups. If you 
drop a 


to be on our index, just 


ana 


would Like 


Line to us and mark the envelope "Local user 
groups". Don't forget to quote your membership number. 


This Listing is an update to the last full Listing issued in BEEBUG no 6. 


Bangor & District 
Dilwyn Jones 


Fodol Farm,Hafod Lane 
Caernarfon Road 


Ipswich 


Karl Brandenburg 
19, Oxford Road 


Medway Towns 
Dave Laws 
25 The Ridgeway 


Staffordshire 
A. Wiseman 
7 Farm Close 


Ipswich IP4 1NL Chatham Kent Perrycrofts 
Bangor , 0634 42855 Tamworth Staffs 
Gwynedd LL57 4BU Liverpool 0827 6 

9587 

[Meet Bangor Community STEM | j 
Centre Rm 1A at 7.30pm Es us , Salisbury ck South Wales 
Thursdays, fortnightly y Myrrtre Stree dra | Nicholas Goodwin 
from 4/11/82] Liverpool. Tel: 0722 77303 


[Meetings on 3rd Thu 
of month from 7.30pmJ 


ocean CARRERE CARMEN 


EDUCATIONAL GROUPS/SUB-GROUPS 


MUSE 

(Microcomputer Users in Education) 
The Secretary 

Richard Green 

i22 Tennyson Avenue 

(HULL HUS 3TW 


London 


W.E.Hunt 

143, Montague Road 
Leytonstone 

London E11 3EW 
(Currently working on 


22, Gendros Drive 
Gendros, Swansea 


SPECIALIST INTEREST GROUPS 


A postal BBC micro ADVENTURE/FANTASY 
Club has now been formed. The club will 
provide a central library of Adventure 
and Fantasy games written by members for 
the use of other members. Send an SAE 


for further details to: 
BBC Micro Adventure Club 
29 Blackthorn Drive 
Larkfield 

Kent ME20 6NR 


Membership £10.00pa (£9.00 by 
order). MUSE publishes 
year and has a 
Library which 

educational 
regional 
country. 


standing 
six journals a 

considerable software 
will be making available 
BBC programs. MUSE has 
and Area groups throughout the 


mathematics, and science 
programs) 


SAVE £60-£80 (+ VAT) when you order your superb new Type 3 printer from 
itech, the Epson specialists. 


e also have large stocks of Epson sundries including cartridge ribbons, 
st covers, fanfold paper, continuous labels, etc. 


to: 


Datatech Ltd (BB), 
3 Bramhail Close, Timperley, 
Altrincham, Cheshire WAT15 7EB. 
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o> — SPACE CITY (16k) 


$V, 4 
UT må * by J. Banks 


This is an ingenious Little program using four colours in mode 5. It will run 
in a 16k machine even with full instructions. Invading aliens spring from a 
hovering craft, and descend by random steps on to the unprotected city. You control 
the customary laser base, but it differs from the usual variety in that you can 
control the Lateral position of the Laserbolt in mid-flight. Dextrous use of this 
facility makes it just possible to prevent a successful attack on the city by the 
first fleet, The second fleet however soon arrive, and they move even faster. 
There is on-screen scoring and full instructions are given in the program. If you 
wish to change the colours then you should experiment with Line 110. See the User 
Guide for details of the VDU 19 call. 


Main Procedures VARIABLES USED 
X%€ ) and Y%C ) Invaders coordinates. 
NAME USE MX% and MY% Missile coordinates. 
A% and UZ Invader type to be printed. 
CITY Draws the city in a given IX and JX Various loop counters. 
colour. HX Height of invaders shot from 
INV Moves the aliens around the mothership. 
screen and tests for an alien SC% Score. 
Landing on the city. CX Count of invaders hit or passed 
BASE Enables the gun base to be moved city without Landing. 


Left and right, and also FLA Flag for missile fired. 
initiates the firing of a E% End game, invaders Landed. 
missile. S% Loop counter for stars. 
MSL This moves the missile and checks Z Loop counter for city dome. 
to see if an alien has been hit. B% Buildings (X) coordinates. 
HIT If an alien has been hit then T% Reads data, height of buildings. 
this procedure checks to see HT% Height of buildings. 
which one, adjusts the score and R% Invader to be moved. 
resets certain coordinates (eg. M% Move invader left right or stay. 
the gun base). . P% Test for hit. 
G% | Keyboard scan for missile/base 
instructions. 


4QREPEATUNTILGET=32 
58MODE5 
60VDU23;8202;0;0;0; 
7@DIMXZ (19) , Y$(19) 
80VDU23,224,255,165,255,165,255,165,25 
5,165 

90VDU23,225,0,36,126,90,36,66,129,0 
100VDU23,226,36,102,255,231,255,189,153 


,165 
h i ; -— | 118VDU19,2,6,0,0,0,19,1,3,0,0,0,19,3,5, 
mon $Ó 0 
2ØPRINTTAB (12,2) "SAVE SPACECITY"''" 12ØH%=64Ø : SCZ=G : C%=Ø : MX%=6Ø8 :MY%=32: FL% 
STOP THE INVADERS FROM LANDING"''"Z AND =@:E%=2:CLG 
X KEYS MOVE MISSILE LEFT AND RIGHT" '" 130FORS$-1TO40: VDU18,0,2,25,69,RND(1279 
BEFORE AND AFTER LAUNCHING."''" PRESS )J);RND(1023);:NEXT 
RETURN KEY TO LAUNCH MISSILE." 149PRINTTAB (Ø, 1) "SCORE" 
3ØPRINTTAB (8,16) "THE HIGHER YOU HIT TH 1 5@PROCCITY 
EM"! !" THE MORE YOU SCORE"'''" 16ØFORZ=ØTO PI STEP PI/59:VDU25,69,640- 


PRESS SPACE BAR TO START" (512*COS (Z) ) ;60+(512*SIN(Z) ) ; : NEXT ` 
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rØ, 25,4, 489; 1906; 25, 4,800; 1006; 25,85,640; 
890; 
1801FH&«352 H%=352 
19ØFORI%=1ØT019: X% (I%)= =640: Y% (I$) =992:N 
-EXT 
2ØØFORIS=ØTO9:X% (IS) =13* 128: YZ (1%) =H: 
OUND@ ,-15,4,1:VDU18,3,1,25,4,640;890; 25,5 
r X% (13) ;Y% (13) ;225,25,4,640;890; 25,5,X* (I 
$) ;Y% (1%) ; : DELAY=TIME+2@ : REPEATUNTILTIME> 
DELAY : NEXT 
21@REPEAT 
220PROCBASE 
230PROCINV 
240PROCBASE 
250VDUA4: PRINTTAB (14,1) ; SC$: VDU5 
260UNTILE$-]ORC$-20 
2701FC$-20 C£-20:H$-H2-64:GOTO186 
. 28ØVDU4: PRINTTAB (3,8) "PRESS SPACE BAR"! 
" TO STAR Hi] 
290PRINTTAB(3,12)"OR F TO FINISH" 
3000N INSTR(" F",GETS) GOTO120,310 ELSE 
308 
310MODE7: PRINTTAB (16,16) "GOODBYE" : END 
320DEFPROCCITY 
330VDU25,4,128;60;25,5,1152;60;25,4,600 
:60;25,5,600;0; 25,4,680;60;25,5,680;0; 
340FORB2-3TO16:READTS : FORHT3=1 TOTS : VDU5 
4,25,4,B$*64; 644+HTS* 32; 224: NEXT: NEXT 
35@RESTORE 
360ENDPROC 
` 370DATA1,2,3,1,4,2,3,6,5,2,1,3,2,] 
380DEFPROCINV. 
390R$-RND(26) —1:M$S-RND(3)-2 


ee Rae iL e RE E 


| We have on offer a LIMITED QUANTITY of 22" RGB Colour 
| Monitors- with FREE Isolating Transformers. Which are 
| ideal with the BBC Micro, A 
| The VMC 22 Colour Monitor has a 22" Mullard 110° C. CRT. 


"1 78VDU25, 4, 960896; 25, 4,800; 1010; 25,85, - 
640; 768; 25,85, 480; 1810; 25,85, 320; 896; 18,0 
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41QVDU18,2,2,25,4,X%(R&) ; YS(R2) ;A$ 

420X$ (R$) =X% (R$) HM$*64 

430Y$ (R$) =Y% (R$) -32 

440IFX$ (R$) 51216 X2$ (R2) 21216 

450IFX$ (R%) <Ø X% (RB) =O 

460IFY$ (R$) =32 C%=C%+] 

47Q@SOUND1 ,-18,58,1 
480VDU18,1,1,25,4,X%(R&) ; YS(R$) ; A2 
4901FPOINT (X$ (R&) +16, Y$ (R$) -36) -2ANDYS$ ( R£) 
«320 E%=1:PROCCITY 

SØØENDPROC 

51ØDEFPROCBASE 
52ØVDU18,2,2,25,4,MX%;MY%; 33 

530*FX15,0 

540IFINKEY(-67) AND MX2«1200 MX%=Mx$+32 
550IFINKEY(-98) AND MX%>32 MX$-MX2-32 
560IFINKEY(-74) OR FL%=1 PROCMSL 
570VDU18,1,1,25,4,MX2;MY$; 33 

580 ENDPROC 


_ 59QDEFPROCMSL 


6ØØMYS=MY8+32:FL%=] 
610IFMY$»960 MY$-32:FL$-0 
620P%=POINT (MX$-16,MY$-16) 
630IFPZ-]ORP£-3 PROCHIT 
640ENDPROC 

650DEFPROCHIT 
660FORJ$-0TO!9 

6701 FMX3<>X% (J&) ORMYS<>Y% (J&) THEN740 
68ØIFJ%>9 U$-226ELSEU$-225 
690VDU25, 4, X% (JS) ; YB (JZ) ;U$ 
700SOUND£ ,-15,2,2 
710SC$-SC$4Y$ (JZ) :C$-C$41 
720Y$ (J%) =-32 

730MY%=32: FLS=0 

74QNEXT 


| ADD A VOLUME CONTROL 
| A special cable 
| including volume 
| control and a DIN 
| socket for tape 


| For shipping purposes the CRT and scan coil assembly are 
| seperate from the chassis. The lugs of the CRT allow it 
| to be mounted in a standard 22" Colour TV Cabinet, or a 


| unit of your own design. The unit is then assembled by 
| plugging the wires from the chassis to the tube and 

| soldering the input connector, power connector, and 

| transformers. 

| A comprehensive instruction sheet, and manual with 

| circuit board diagrams is supplied with each unit, 
| HOW TO ORDER Add carriage at £10.00, and VAT at 15% to 


| total. Make cheques, P/O payable to Opus Supplies & sendto| 


a 10 Beckenham Grove, Shortland 
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SOUTH - 


Close, 


| recorder or amp. 
| soldering 


drilling. 

fitted in 

minutes. Available 
at £6.95. VAT & post 
paid from: 

COAST 
COMMUNICATIONS LTD. 
(Computer Services 
Dept.) ` 23 Sandy 
Petersfield, 
Hants. 
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Mini Text Editor . 

If you are using this on a disc-based machine, you will need to alter line 31922 
of the program published last month to 31922 N% = PAGE + 1 This change only affects 
the printout without line numbers, and moreover does not alter its correct operation 
using a cassette based system. | | 


Memory Display Utility 
Doug Blyth the (real) author of the Memory Display Utility program given in 

BEEBUG No. 6 has written in with two ways of using his program to examine a Basic. 

program in memory. 

Method 1. Renumber the dump routine with high value line numbers, say starting at 
30000. Then make a cassette file using *SPOOL "Dump"commands as described 
in BEEBUG No. 3 page 16. Load the user program to be examined and merge 
Dump with it and GOTO 30990. | 

Method 2. Load Dump. Execute PAGE=&14ØØ. Load user program. Execute PAGE=&EØØ (on 
a cassette-based machine). Run and look at memory from &1400 onwards. 
This method seems the easiest. In passing, when resetting PAGE on any 
occasion, if on checking its value with PRINT PAGE it is found to be 
different from the value set, this will be because the OS masks the value 
with &FF@@ so that Page points to a page boundary. 


New Page for Disc Systems. 


Last month we gave a note on how to configure a disc-based machine 
for cassette use by typing *TAPE before loading. 
To Leave more space in the machine for programs you can, as we 
said, type PAGE=&E00. This re-allocates the disc workspace for program 
| use. We should also have added that you should type NEW after the PAGE 
| change, so as to cover all eventualities. 


Official BBC Dealer 
Model A to B upgrade Kit = £60.00 ` Installation = £15.00 
16K RAM 8 X HM4816AP-3 100nS = £21.60 
FULL RANGE OF CONNECTORS & LEADS AVAILABLE EX-STOCK 


| Col 
SEIKOSHA GP100A £175 auc. oil Ti M £99 


EPSON MXBOF/T3 £325 14” NEC — £320 12" NEC £135 


EPSON MX100F/3 £430 | 14” Microvitec £269 All Monitor Leads 


NEC PC8023 £325 l available 
Printer Lead £13.50 Carriage £8/14" Monitor £6/12" Monitor 


SANYO Cassette Recorder £24.50 +£2 pap 


Please phone for our B&C leaflet for full details on software, books & hardware 
‘We also stock a large range of CPUs, Memories, TTLs, CMOS & Connectors 
Beebug members — dicount on SRA db & Connector purchases 


: -ONDON NW10 1ED. Le 01 452 1500 & 
| s. MAIL ORDERS TO ABOVE ADDRESS | 
RE TAIL SHOPS NW London 15 BURNLEY ROAD, LONDON NW10 _ 
um "West End 305 EDGWARE ROAD | LONDON E 
P& 155. VAT UNLESS SPECIFI VISE. 
DEPTS UNIVERSITIES COLLEGES & SCHOC 
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oe. 
ero” ARTIST 
(for a model B - or 32k with analogue interface) 
by J. Yale 


A very nice drawing and painting package that operates from a single joystick 
(type ANHO1) using a palette of colours and shapes chosen from the top of the 
screen. It draws points, Lines, triangles and rectangles in any colour selected. 


This sketching program uses one of the joysticks to position Lines, triangles or 
rectangles on the screen. Once the program is running, the keyboard is not used at 
all, new colours and shapes being selected from a menu along the top of the screen 
using the cursor and fire button. The following functions are available, selected by 
the shape shown. 


Point Points are plotted at the cursor position as long as the fire button is 
pushed. Keeping it pressed draws continuously. 

Line Alternate pushes of the fire button leave a marker on the screen, or 
draw a Line to the last marker which is then removed. 

Triangle Two markers must be positioned before the third press draws a triangle. 


Rectangle Position a marker at one corner of the rectangle, and then press at the 
opposite corner. 

S Save the screen to cassette or disc. This takes about 6 minutes on 
cassette, or 2 secs on disc! With cassette saving set the recorder to 
‘record’ before pressing the joystick fire button. There is an option at 
the start of the program to read in a saved screen. 

C CLear the screen to the currently selected colour. 


To investigate different plotting modes change the value of logic’ in line 250. 
1=0R 2=AND 3=EOR 4=INVERT. Note that rectangles do not plot correctly in EOR or 
INVERT due to overlapping of the two triangles making up the rectangle. Note also 
that due to a less publicised bug in OS 0.1, you will occasionally see unexpected 
Lines drawn in the bottom right hand quarter of the screen if you are using the old 
operating system. 

118 REPEAT 

120 REPEAT 

130 PROCjoystick 

140 UNTIL ADVAL(@)AND ] 

150 IF y%>top picture% THEN PROCfuncti 
on ELSE PROCplot 

160 UNTIL FALSE 

170 END 

186 

190 DEF PROCconstants 

200 LOCAL I 


190 REM'ARTIST' by John Yale 
20 REMSept 1982 

30 REMBBC Model B with Joystick 
4g ON ERROR GOTO 21960 

50 MODE 7 

55 *OPT1,6 

60 PROCintro 

70 MODE 2 

80 VDU 23;8202;0;0;0; 

90 PROCconstants 

100 PROCinit screen 


December 1982 Volume-1  Issue-8 


40 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


points$-] :line$-2 :triangle$-3 
rectangle£-4 

top picture$-960 

cell width$-288 :ncell$-14 
logic$-0 :colour$-7 

last time$-TIME 

shape$-points$ 
x$-2640:x1$-x$:x2$-x$ 

y$-top picture$DIV 2 
yl$-y$:y29-y$ 


REM Make all colours non-flashing 
FOR I=8 TO 15 
VDU 19,I,I1-8;0; :NEXT I 

REM Define special characters 

REM Point,Line,Triangle,Square,Cur 


sor ,Marker ,Solid 


380 
390 
ABD 


VDU 
VDU 
VDU 


23,224,0,0,0,24,24,0,0,0 
23,225,1,2,4,8,16,32,64,128 
23,226,128,192,160,144,136,132 


7,138,255 


410 
420 
430 
440 


VDU 
VDU 
VDU 
VDU 


23,227,8,126,66,66,66,66,126,0 
23,253,0,68,40,16,40,68,0,0 

23,254,16,16,16,254,16,16,16,0 
23,255,255,255,255,255,255,255 


72097209 


45@ 
460 
470 
480 
490 
500 
510 
520 
eSt+4 
530 
540 
55) 
560 
57 
580 
590 
600 
610 
620 


630 


ENDPROC 


DEF PROCinit screen 

LOCAL I = 

REM Draw the cells 

GCOL 0,7 

MOVE Ø,top picture$t4 

DRAW ncell$*cell width$,top pictur 


FOR I=Ø TO ncell$ 

MOVE I*cell width$,top picture$t4 
DRAW I*cell width$,1020 

NEXT I 

DRAW 0,1020 


REM Fill in the cells 

REM First the colours 

FOR I=Ø TO 7 

PROCprint cell(I,I,255) 

NEXT I  . 

REM Then the special shapes 
FOR I-8 TO 11 

PROCprint cell(I,7,216-4I) 
NEXT I 

PROCprint cell(12,7,ASC("S")) 
PROCprint cell(13,7,ASC("C")) 
IF load THEN *LOAD"SCREEN" 
PROCcur Sor (x$, y£) 

ENDPROC 


DEF PROCprint cell(N,colour,char) 
REM Print 'char' in cell 'N' in gi 


ven colour 


750 


VDU 5 


SEN 768 7 


+48 
710 
788 
796 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
958 
960 
978 
980 
990 
1009 
1019 
1020 
19030 
1040 
1050 


MOVE N*cell width%+16,top picture% 


GCOL @,colour 


PRINT CHRS (char); 


VDU 4 
ENDPROC 


DEF PROCcursor(x$,y$) 

REM Print the cursor,centre x$,y$ 
REM Invert the colour there 

GCOL 4,0 

MOVE x$-24,y$-12 

VDU 5,254,4 

ENDPROC 


REM Put or remove a marker 
DEF PROCmarker (x$,y$£) 

GCOL 4,0 :MOVE x%-24,y%t12 
VDU 5,253,4 

REM Restore state 

GCOL logic%,colour% 

MOVE x2$,y2$ :MOVE x1$,yl$ 
ENDPROC 


DEF PROCjoystick 

REM Read the joystick and plot 
REM new cursor if it has moved 
oldx$-x$:0ldy$-y$ 
X%=(X$+ADVAL(2)DIV 45)DIV 2 
y3=(y%+ADVAL(1)DIV 64) DIV 2 

IF x$DIV8-oldx$DIV8 AND y$DIV4-old 


ySDIV4 ENDPROC 


10690 
1970 
1080 
1990 
1190 
1118 
11290 
1138 
1149 
1159 
1169 
1178 
1189 
1198 
1209 
1216 
1220 
1230 
1240 
1250 
1269 
1270 
1280 
1290 
1300 
1318 
1320 
1338 
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PROCcursor (oldx$,oldy£) 
PROCcur Sor (x$,y$£) 
ENDPROC 


REM Wait for the button release 
DEF PROCbutton release 

REPEAT UNTIL (ADVAL(@)AND 1)=@ 
ENDPROC 


DEF PROCfunction 

REM Service the selected function 
REM given by cursor position 
LOCAL cell 

SOUND 1,-15,50,2 

cell=x%DIV cell width% 

cell«8 THEN colour%=cell 
cell=8 THEN shape%=points% 
cell=9 THEN shape%=line% 
cellz10THEN shape%=triangle% 
cell=11THEN shape%=rectangle% 
cell=12THEN PROCfile 

IF cell=13THEN PROCclear screen | 
IF cell>7 THEN count$-0 ` 
PROCbutton release 

ENDPROC 


REM Plot the current shape 
DEF PROCplot 
PROCcur Sor (x%,y%) 
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ROCmarker (x1%,y1%) 


1600 
1610 
1620 
1630 
1640 
1650 


MOVE x2$,y2$ :MOVE x1$,y1$ 

GCOL logic$,colour$ 

ON shape% GOTO 1390,14090,1410,1420 
PROCpoints :GOTO 1449 

PROCline :GOTO 1449 

PROCtriangle :GOTO 1449 
PROCrectangle :GOTO 1449 


PROCCcursor (x£,y£) 
IF shape%<>points% PROCbutton rele 


X29-x1$ :y2-yl$ 
xl$-x$ :yl$-y$ 
ENDPROC 


REM Points 

DEF PROCpoints 

IF last time$?TIME-20 PLOT 5,x$,y$ 
SOUND 1,-15,100,2:PLOT 69,x%,y% 
last time$-TIME 

ENDPROC 


REM Line 

DEF PROCline 

count£-count$EOR 1 

IF count PROCmarker (x%,y%) ELSE P 
:PLOT 5,x%,y% 

ENDPROC 


REM Triangle 

DEF PROCtriangle 

count3%= (count£4])MOD 3 

IF count2«»0 PROCmarker (x%, y%) ELSE 


PROCmarker (x2%,y2%) : PROCmarker (x1%,y13) 


: PLOT 
1669 
1670 
1689 
1699 
1700 
1710 

750 
1720 
1730 
1748 
1750 
1768 
1779 
1789 


85,xX$,y$ 
ENDPROC 


REM Rectangle 

DEF PROCrectangle 
count%=count%EOR 1 

IF count% PROCmarker(x£,y$) :GOTO] 
PROCmarker (x1%,y1%) 

MOVE x$,yl$ :PLOT 85,x$,y$ 

MOVE x1%,y1%:PLOT 85,x1%,y% 
ENDPROC 


DEF PROCclear screen 
REM Clear screen to current colour 


WHAT MODE? (Not OS 0.1) 


You 


may not 


AZ=135 


IF shape&Opoints& SOUND 1,-15,100 1800 MOVE 0,0 :MOVE Ü,top picture’ 


2170 
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1818 PLOT 85,12890,90 
1820 PLOT 85,1280,top picture$ 


1830 ENDPROC 
1849 


1850 DEF PROCintro 

1860 FOR Y=1ø TO 11 | 

1870 PRINT TAB(19,Y) ;CHRS$132;CHR$157;CH 
R$13]1;CHR$141; "ARTIST — ";CHR$156 

1880 NEXT Y 

1898 PRINT TAB(5,15);"Do you want instr 
uctions (Y/N)"; 

1900 IF (GET AND &DF)-ASC("N") THEN 207 
2 
1918 CLS 
1920 PRINT''"The cursor is moved with t 
he left" 

1930 PRINT"hand joystick." 

1940 PRINT'"Pressing the fire button wi 
ll plot" 

1959 PRINT"a point." 

1960 PRINT'"Positioning the cursor on t 
he top line" | 

1978 PRINT"and pressing the fire button 
has" 

1988 PRINT"the following effect:" 

1998 PRINT'"COLOURS — Change plot c 


olour" 
2000 PRINT "DOT — Doodle mode" 
2010 PRINT "LINE — plot lines" 
2020 PRINT "TRIANGLE - Plot triangle 
g" 
2Ø3Ø PRINT “RECTANGLE - Plot rectangl 
es" 
2040 PRINT"S — Save screen" 
2050 PRINT "C — Clear screen" 
2060 PRINT''"Push any key to continue" 


2070 
2071 CLS 

2072 PRINTTAB(5,15)"Load picture from f 
ile (Y/N)? "; 

2074 load-((GET AND &DF)-ASC("Y")) 

2080 ENDPROC 

2090 
2100 
2118 
2120 
2132 
2140 
2150 
2160 


REPEAT UNTIL GET 


REM Error routine 
MODE 7 

REPORT: PRINT" @ "ERL 
END 


DEF PROCfile 
*SAVE"SCREEN" 3280 7FFF 
ENDPROC 


24 have noticed that OSBYTE 135 besides reading the character at the 
cursor position, returns the current graphics mode in the Y register. 
set the variable mode% to the current mode: 


Therefore to 
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BEEBUG has arranged discounts for members at a number of retail outlets who supply 


computer books, software, hardware and services. We are continually negotiating 
further discounts. 


We have heard that some suppliers are selling 120ns 4816 memory chips for Beeb 
upgrades. The Acorn specification is for a 100ns device (eg 4816-3), though we have 
not heard of anyone having problems with 120ns chips. 


H. Banton Printed cards | Mine of Information Computer Books 
8 Princess Road to Label the user- (Mail Order) 5% discount 
Urmston definable keys. 1 Francis Avenue 
Manchester M31 3SS £1.80/10, £2.40/20 St Albans 
Tel:061 747 7014 £4.60/50 10% member Herts (Tel: 0727 52801) 
discount. 

Opus Supplies Computer furniture 
Happy Memories Computer Hardware Birchtrees 20% discount. Send 
Gladestry 10% off all ‘one-off’ 10 Beckenham Grove for brochure. 
Kington prices. Quantity prices| Shortlands 
Herefordshire may be negotiable. | Bromley BR2 0JU 


HR5 SNY (Tels: 054422 618) 


| Technomatic Ltd Hardware, software 
Kingsley TV Services £10 discount off | 15 Burnley Road and books, 5% discount 
40 Shields Road their range of | LONDON NW10 
Newcastle upon Tyne Monitors and | (Tel: 01-452 1500) 
(Tel :,0632 650653) TV/Monitors. | 

| Wallace J & S Flexible plastic dust 
Microage 5% discount off disc | 9 Barn Close covers. £3.95. 254 
135, Hale Lane drives mentioned in the| Crewkerne discount to members. 
Edgware "Disc Review" in this | TA18 8BL 
Middx HA8 9QP issue. | 

Watford Electronics 5% off most items. 


33, Cardiff Road 
| Watford Herts. 
| (Tel: Watford 40588) 


It is advisable to telephone before placing an order, to check availability. Members 
should simply quote their membership number with their order, though members taking 
discount will not necessarily be given credit card facilities, (you must check 
this). We are not acting for these companies, nor receiving payment from them, and 
cannot be held responsible for their services. 


Unique Hardware & Soft > “MEDMON-B’? MACHINE CODE 
> HARI RE MONITOR - 20 Commands - Dissassemble 
> “MEDPROM-B*’? EPROM PROGRAMMER Memchange, Break-points, Search, 
- With Machine Code software - User Port Relocate, Offset, etc - Invaluable for 
Connection - Programs 2516/2716/2532/2732 Program Development and to reveal the 
- Software Eprom Safety Features £79.00 Machine Operating System. £9.95 


V Real time calendar/clock, 
S “MEDITOR ^»? FREE FORMAT TEXT battery operated, user port 
FILE GEN/EDITOR - including: connection —  . £29.50 

IEDMAIL-B^ MAILSHOT LABEL All prices include p & D. 

PRINTER: Professional Word Processor SE Mi i ; Å 
Features enable Edit, Save, Compose and || | SAU Mólion Bd ese is 
Append Text with Single Key L Letter | =Á Leicester LE4 8BB. | 
Commands. £9.50 ——7 Tel.: 0533 704492 
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